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IDENTIFICATION 


PRODUCT CODE: AC-T104A-MC 

PRODUCT NAME: CZRNAAQ RM80 PERFORMANCE EXERCISER 
PRODUCT DATE: APRIL 1, 1982 

MAINTAINER: CX DIAGNOSTIC GROUP 

AUTHOR: MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE __CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
107 eda OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (C) 1982 DIGITAL EQUIPMENT CORPORATION 
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1.1 


ABSTRACT 


THE RMBO PERFORMANCE EXERCISER PROGRAM IS DESIGNED 
AN_INTERACTIVE TEST ON RM DISK DRIVES CONNECTED TO A 
SUBSYS TR ten" 













THE PERFORMANCE EXERCISER PROGRAM WILL EXERCISE DRIVES CONNEC(ED 
AS EITHER wy OR a“ PORT yay bi DUAL _PORT DRIVES ARE TESTED 
BY LOADING AND RUNNING THE PROGRAM FROM BOTH CONTROLLING SYSTEMS. 
pee oaices. “ps WILL EXERCISE A MIXED SYSTEM OF DUAL PORT AND SINGLE 


TO OBTAIN td re Tip TESTING, OPERATIONS ON THE MULTI-DRIVE 
CONFIGURATIONS ARE OVERLAPPED (OTHER DRIVES ARE PERFORMING SEEK/SEARCH 
OPERATIONS WHILE ONE DRIVE IS PERFORMING A DATA TRANSFER). OPERATION 
AMONG THE DRIVES ARE OPTIMIZED SO THAT A HIGH SLASYSTEM DATA TRANSFER 
RATE OR A HIGH POSITIONING OPERATION RATE IS MAINTAINED. 


THE PERFORMANCE OF EACH DRIVE I35 MONITORED BY THE PROGRAM. IF A 
att EXCEEDS A PRESET NUMBER OF ERRORS IN ANY OF SEVERAL CATEGORIES, 
HAT DRIVE IS AUTOMATICALLY DEASSIGNED. (THE OPERATOR MAY 4 faethe 
THE AUTOMATIC DEASSIGNMENT FEATURE.) THE PROGRAM gt PERFORMANCE 
STATISTICS FOR EACH DRIVE BEING EXERCISED ON REQUEST FROM THE 
OPERATOR OR AUTOMATICALLY AT AN INTERVAL DETERMINED BY THE OPERATOR. 


ALL DATA TRANSFER COMMANDS EXCEPT ahs Ay yt & DATA AND WRITE CHECK 
HEADER & DATA ARE USED. RECALIURATE AND READ-IN PRESET COMMANDS ARE 
USED AT_STARTUP AND DRIVE INITIALIZATION. RECALIBRAT 
RETURN=TO-CENTERLINE COMMANDS ARE USED DURING ERROR RECOVERY. 


THE DATA TRANSFER COMMANDS ARE SELECTED RANDOMLY EXCEPT FOR THE 
WRITE CHECK COMMANDS. THE WRITE CHECK COMMANDS ARE USED TO VERIFY 
A PREVIOUS WRITE OPERATION. THUS, WHEN A WRITE COMMAND IS SELECTED, 
a — WRITTEN IS VERIFIED BY THE APPROPRIATE WRITE CHECK 


DEPENDING UPON WHETHER THE PROGRAM HAS BEEN LOADED VIA APT AUTOMATIC | 
MOD UMP MODE WILL perce WHETHER; PROGRAM/OPERATOR 
COMMUNICATIONS ARE THRCUGH THE KEYBOARD, DYNAMIC PROGRAM OPTIONS 
ARE SELECTED VIA SWITCH REGISTER SETTINGS AND ERRORS ARE REPORTED 
ON THE CONSOLE TERMINAL. 


GENERAL DOCUMENT NOTES 


A. IN yy TO ALL NUMBERS IN THIS wg tt 
BASE OF A NUMBER LARGER THAN SEVEN. A PERIOD( 
NUMBER TO_ INDICATE DECIMAL OR NO PERIOD WILL 
TO INDICATE OCTAL. IF THE NUMBER OCCURS AT THE 
A DOUBLE PERIOD(. .) INDICATES DECIMAL AND A SINGLE 
lau OCTAL. ALSO, ANY REFERENCES 10 T 


Tet FOLLOW THE 
OW THE NUMBER 


F 
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2. REQUIREMENTS 


2.1 EQUIPMENT 
at 1/70 PROCESSOR 


KWI1-L_ OR KW11-P CLOCK 
PROGRAM LOADING DEVICE 


TERMINAL 
RHO CONTROLLER 
1 TO 8 RM&O DISK DRIVES 
2.2 MEDIA 
THE PERFORMANCE EXERCISER PROGRAM REQUIRES FORMATTED DISK 
AND MUST BE FORMATTED IN (16 BIT) MODE. 
2.3 PRELIMINARY PROGRAMS 
RM80 DISKLESS TEST, PART 1 & 2 
RM80 FUNCTIONAL TEST, PART 1, 2 & 3 (OPTIONAL PART 4) 


3. OPERATING PROCEDURE 


3.1 LOADING THE PROGRAM 


3h THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 

93 -PAPER TAPE, USING THE STANDARD PAPER TAPE PROCEDURE 

9¢ =XXDP MEDIA, USING ANY XXDP DEVICE 

4 3.2 STARTING ADDRESSES 

=o 200 = START ADDRESS, ALL SWITCHES CLEAR (SEE SECTION 3.4) 

100 WHEN THE PROGRAM IS STARTED, A DATA PATTERN WILL BE WRITTEN TO 
101 ALL ON-LINE DRIVES IN A SEQUENTIAL SEEK MODE. UPON COMPLETION OF 
106 THE WRITE, THE PROGRAM GOES INTO A TESTING MODE. 

104 204 = RESTART ADORE SS - THE sp gl ADDRESS PROVIDES THE OPERATOR WITH 
105 THE ABILITY TO CHANGE THE DEFAULT RM/RH ADDRESSES (SEE SECTION 
106 4.1.2), CHANGE ANY PROGRAM PARAMETERS (ses SECTION 4.1) OR 
24 CHANGE DRIVE LIMIT PARAMETERS (SEE SECTION 4 

109 

1" 3.3 PROGRAM CONTROL 

112 PROVIDED THE PROGRAM HAS BEEN LOADED AND STARTED VIA THE APT DUMP 

113 MOPE OR THE DIAGNOSTIC IS RUNNING IN STAND ALONE PROCESSOR/DRIVE 

114 OPERATIONS ARE INITIATED AND CONTROLLED BY KEYBOARD COMMANDS AND 


G 
CZRNAAO RM8O PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 3-2 SEQ 0006 


SWITCH REGISTER SWITCH SETTINGS. 


HOWEVER, IF THE PROGRAM IS LOADED VIA APT SCRIPT MODE ALL SETUP 

AND SUITCH on tie GU SETTINGS WILL BE PROVIDED THROUGH THE APT E TABLE. 
TYPEOUTS THE USER DIAGNOSTIC MAY OR MAYNOT BE INHIBITED 

DEPENDING UPON WHETHER OR NOT THE APPROPRIATE BIT IN THE E TABLE 


3.4 SWITCH OFTIONS 


IF THE PROGRAM IS BEING AnD ON A SWITCHLESS PROCESSOR THE PROGRAM 
yey DETERMINE THAT THE HARDWARE SWITCH REGISTER IS NOT PRESENT 
U F TWARE ° EGISTER HE *SOFT 


WILL H C 
REGISTER IS LOCATED AT LOCATION re » THE SETTINGS OF THE ‘SOF TWARE® 
SWITCHES _ CONTROLLED THROUGH A KEYBOARD ROUTINE WHICH IS CALLED 
BY TYPING A ‘CONTROL G°. TH 4 PROGRAM WILL RECOGNIZE THE ‘CONTROL G’ 
AT am TIME EXCEPT WHEN THE PROGRAM IS IN KEYBOARD ENTRY MODE, OR 
IS AT A HIGHER PRIORITY PROCESSING AN DRIVE INTERRUPT. THE ‘SOFTWARE 
oa Sh VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE TO THE 

PROMPT FROM THE SWITCH ENTRY ROUTINE: 


WWW MURITMOR NN — 


136 "SWR = NNNNNN NEW =° 
138 EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENIIRE SWITCH REGISTER 
139 IMAGE MUST BE yor eeri LEADING ZEROS ARE NOT REQUIR T° 
140 AND_‘CONTROL U* FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS DURING 
pe SWITCH ENTRY. 
143 ON PROCESSORS WITH HARDWARE SWITCH pd ei THE *SOFTWARE® SWITCH 
144 REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1°S_IN THE SWITCHES. 
145 ALL SWITCH REGISTER REFERENCES WILL BE TO THE *SOFTWARE® REGISTER 
106 AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 
148 SW<15>=1 HALT ON ERROR 
149 SW<14> NOT U 
150 SW<13>=1 INHIBIT ERROR TYPEOUT 
151 SW<12> NOT USED 
152 SW<11> NOT USED 
153 SW<10>=1 BELL ON ERROR 
154 SW<09> NOT U 
155 SW<08>=1 INHIBIT END OF PASS MESSAGES 
156 SW<07>=1 DISPLAY ALL DATA ot ERRORS 
157 yet se DO NOT ALTER THE CURRENT OPERATION PARAMETERS 
158 SW<05>=1 PARTIAL REGISTER DISPLAY IF ERROR; DO NOT DISPLAY 
159 ECC Seg ly RESULTS 

SW<04>=1 INHIBIT MAXIMUM ERROR COUNT CHECK; DO NOT DEASSIGN 

DRIVES WHEN END OF TEST IS REACHE 
SW<03>=1 DISPLAY THE SECTOR IN ERROR (BEFORE RETRY ATTEMPTS) 


"DTE', OR "WCF TERRORS 0 OR AFTER THE 28TH 
RETRY IF UNCORRECTABLE ° “opera 
IF DATA COMPARE ERRORS 2 s<0 > SET, DISPLAY REST 


OF BUFFER 
SW<02>=1 INHIBIT pape ph dh STATUS TYPEOUT DURING STARTUP 
al PERFORMANCE REPORT AFTER SPECIFIED TIME 


SW<01>=1 INHIBIT DATA COMPARE AFTER READ COMMAND, W/O ERROR 
SW<00>=1 ‘READ ONLY'’ OR LOCKED “READ ONLY** MODE 


et tt RO 
VSSSLIFARELKLIS 


4 1 
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17 

ir Sw<00> 

176 ties THIS ee P SET(1), THE PROGRAM WILL OPERATE IN ‘READ 
177 ONLY’ MODE. IF THE SWITCH IS CLEARED(O), THE PROGRAM WILL RETURN 
178 TO READ/WRITE MODE a G TESTING. THIS SWITCH ONLY EFFECTS THE 
12 TESTING PORTION OF THE PROGRAM. 

181 FOR EXAMPLE, IF THE PROGRAM IS STARTED AT ADDRESS 200 . 

182 PATTERN WILL BE WRITTEN TO ALL ON-LINE DRIVES IN A SEQUENTIAL 
183 SEEK MODE. UPON COMPLETION OF THE WRITE, THE PROGRAM GOES INTO A 
184 TESTING MODE. HOWEVER, IF THE OPERATOR SWITCHES TO ‘READ ONLY’ 
185 MODE (SWO=1) JUST PRIOR TO OR DURING THE SEQUENTIAL WRITTING 
186 OF THE DISK, THE PROGRAM WILL CONTINU TTING UNTIL THE 
187 SEQUENTIAL WRITE IS COMPLETED. UPON COMPLETION OF THE SEQUENTIAL 
188 WRITE, THE PROGRAM WILL SWITCH TO A_'‘READ ONLY’’ TESTING MODE 
4 UNTIL SWO IS RESET TO ZERO BY THE OPERATOR. 

191 HOWEVER, IF THE OPERATOR WISHES TO MAKE SURE THAT THERE IS 
192 ABSOLUTELY NO WRITTING ON THE DISK AT ANYTIME, THE PROGRAM MAY 
12? BE LOCKED IN “READ ONLY'’ MODE. 

195 THE PROGRAM CAN BE ee hy “READ ONLY'* MODE ae STARTING OR 
196 RESTARTING THE PROGRAM WITH SWO SET(1). AFTER THE PROGRAM HAS 
197 BEEN LOCKED IN “READ MODE SwO WILL HAVE * toy be ga 
198 UNTIL THE LOCKED — is RELEASED. 7 RELEASE THE PROGRAM FROM 
199 THE LOCKED ‘READ ON cent ee THE PROGRAM MUST BE STARTED 
200 OR RESTARTED WITH suo. CLEAR 0). 


mM 
So 
= 


oF Stee + 


LF. THE PROGRAM IS STARTED AT ADDRESS ee oe LOCKED IN 
FREAD ON di Leo CG A seen se. READ WILL aoe ALL a 


202 

203 

204 paiyes COMPLETION OF THE READ, THE Pi ROGRAM. GOES INTO 

4 “RE ony TESTING MODE AND WILL STAY THAT WAY UNTIL RELEASED.” 

207 

$08 3.5 PASS/TEST TERMINATION 

210 A_PASS_IN RANDOM 'T’ COMMAND MODE OR SEQUENTIAL ‘T* COMMAND MODE IS 
211 DETERMINED BY EI IWER BITS READ OR SEEKS PERFORMED. THE NUMBER OF BITS 
212 OR SEEKS REQUIRED FOR A PASS IS DERIVED FROM EITHER THE SOFT ERROR 
siz RATE SPECIFICATION OR THE SEEK ERROR RATE SPECIFICATION. 

215 THE SOFT ERROR SOC TT IAT ION FOR THE RM DRIVE IS NO MORE THAN 1 sort 
216 ERROR (NON-DISK RELATED) IN 1 X 10°10 BITS READ. (SEE SECTION 3.5 

sit FOR THE 90% CONFIDENCE LeveL) 

219 THE SEEK ERROR SPECIFICATION FOR THE RM DRIVE IS NO MORE THAN 1 SEEK 
$50 i 1 X 10°6 SEEKS. (SEE SECTION 3.5.1 FOR THE 90% CONFIDENCE 
222 

225 A PASS IN ‘W° OR ‘R® COMMAND MODE IS DETERMINED BY THE MAXIMUM 
$$¢ p1sk ADDRESS LIMITS SETUP BY THE OPERATOR. 

$56 3.5.1 PASS TERMINATION 


228 END OF PASS FOR A SINGLE DRIVE IN THE RANDOM ‘T° COMMAND MODE OR 
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2 SEQUENTIAL 'T* COMMAND MODE, IS DETERMINED BY ONE OF THE FOLLOWING 
330 CONDITIONS. 

332 A. IF PARAMETER ENDING" IS 1, END OF PASS OCCURS WHEN THE DRIVE 
23 “9 BITS (1.875 X 10°B WORDS). IT WILL TAKE 
234 WOSRONIMATELY 3,33 PASSES TO REACH THE SOFT ERROR RATE OF 
235 x 10°10 BITS (6.25 X 10°B WORDS) READ. HOWEVE ILL TAKE 
236 io” PASSES” 1 REACH THE 90% CONFIDENCE LEVEL OF Rs i "0-40 BITS 
337 (1.875 X 10°9 WORDS) READ. 

239 B. IF PARAMETER *ENDING® IS 0. END OF PASS OCCURS WHEN THE DRIVE 
24 HAS PERFORMED | 1x 10°6, s SEEKS. IT WILL TAKE 1 P ASS TO REACH 
24 THE SEEK ERROR RATE OF 1 X 10°6 SEEKS. HOWEVER, IT WILL TAKE 
242 3 PASSES TO REACH THE 90% CONFIDENCE LEVEL OF 3 X 10*6 SEEKS. 
244 END OF PASS FOR A SINGLE DRIVE IN ‘wW* OR 'R® COMMAND MODE, IS 
345 DETERMINED AS FOLLOWS. 

247 A. WHEN A SEQUENTIAL SEEK IS MADE BEYOND THE MAXIMUM DISK ADDRESS 
248 LIMITS SET BY THE OPERATOR, THE PASS IS CONSIDERED ENDED. 

250 3.5.2 TEST TERMINATION 

33¢ IF $WO4 IS CLEAR, THE TEST FOR A DRIVE IS TERMINATED WHEN: 

254 A. THE DRIVE HAS COMPLETED THE NUMBER OF PASSES SPECIFIED IN 

255 PARAMETER 'PAS 

256 B. THE TOTAL ERRORS ACCUMULATED EXCEED 25. . 

257 . A FATAL L ERR OR was: EM14. 

258 D. OPERA OR DEAS THE DRIVE 

259 E. THE NUMER OF Passes SPECIFIED BY THE MONITOR HAVE BEEN 

260 , REACHED, WHEN RUNNING IN "XXDP* CHAIN MODE, ‘ACT11° CHAIN 

261 MODE OR’ ‘APT’ SCRIPT MODE (ANY auro MODE). 

263 

264 3.6 RUN TIME 

266 THE EXERCISER PROGRAM MAY BE RUN IN TWO MODES. (SEE SECTION 3.5.1) 
267 THE PROGRAM RUN TIME VARIES GREATLY DEPENDING ON THE OPERATION 
268 MODE SELECTED THe AREAD/WRITE RATIO PARAMETER (*RATIO"), AND BY 
369 SWR SWITCHES 0, 1 

271 - __3.6,1 DATA TRANSFER MODE (DEFAULT) 

ars 1 DRIVE - APPROX. 1.75 HRS. (TO REACH 3 X 10°9 BITS OR 1.875 X 10°8 WORDS) 
303 WITH SW<00> =1 AND SW<01> =1, THE PROGRAM WILL RUN APPROX. 20% FASTER 
277 

378 3.6.2 SEEK VERIFICATION MODE 

280 PARAMETER “WRDCNT’ = 256. (1 SECTOR) 

281 PARAMETER "MAXTRK' = ‘MINTRK' (SAME VALUES) 

282 PARAMETER R OMAXSEC! © MINSEC! (SAME VALUES) 

283 SW<01> =1 (NO DATA COMPARE) 


Su<00> =1 (READ ONLY MODE) 
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see 1 DRIVE = APPROX. 4.0 HRS (TO REACH 1 X 10*6 SEEKS) 

288 

$80 3.7 DUAL PORT OPERATION 

$3) A. LOAD THE PERFORMANCE EXERCISER PROGRAM INTO BOTH PROCESSORS. 

293 B. SWITCH THE ‘CONTROLLER SELECT’ SWITCH TO ‘A/B* ON EACH DRIVE 
soe WHICH IS TO BE TESTED AS A DUAL PORT DRIVE AND CYCLE THE DRIVES UP. 
296 C. START THE PROGRAM IN EACH PROCESSOR. RUN THE PROGRAM AS THOUGH 
344 EACH PROCESSOR WERE RUNNING INDEPENDENTLY OF THE OTHER. 

44 3.8 XXDP, ACT11, APT11 COMPATIBILITY 

301 , THIS PROGRAM IS COMPATIBLE WITH ACT11 AND APT11 IN BOTH DUMP AND 
aoe AUTOMATIC MODES. 

304 THIS PROGRAM IS ALSO, COMPATIBLE WITH XXDP_IN DUMP AND CHAIN MODES, 


305 AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE THE RM80 IS THE XXDP 


308 LOADING DEVICE. 
308 AUTOMATIC MODE OR CHAIN MODE (MONITOR) 
310 1. IF ee OF THE SWITCH REGISTER IS SET(1) WHEN THE PROGRAM I 
311 STARTED AT 200 OR 204, THE OPERATOR IS ALLOWED TO CHOOS 
312 EXERCISING THE USER PORTION OF THE DISK OR JUST THE FE CYLINDERS 
313 (SEE SECTION 4.1). IF SW02 IS CLEAR(O), ALL THE INPUT Ui 
31 IS BYPASSED AND THE TEST IS PERFORMED ON THE FE CYLINDERS ONLY. 
316 2. THE BUS ADDRESS AND CONTROLLER INTERRUPT VECTOR ARE DEFAULTED TO 
ae 176700 AND 254 RESPECTIVELY. 
30 DUMP MODE (NO MONITOR) 
35} 1. INPUT DIALOGUE PROMPTED AFTER PROGRAM STARTS 
4 3.9 APT ETABLE DEFINITIONS 
325 THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT 
326 ENVIRONMENTAL TABLE (ETABLE) | ENTRIES. VIA RUNNING 
338 THE APT UTILITY PROGRAM *‘TSP’ 
4 1. SOFTWARE ENVIRONMENT: 
331 = 1 IF APT SCRIPT MODE 
336 = 0 IF STANDLONE MODE 
sae 2. ENVIRONMENT MODE: 
336 BIT 7 = 1 ETABLE DOES SIZING 
* = 0 PROGRAM DOES SIZING 
339 BIT 6 = 1 SPOOL MESSAGES TO APT IF SCRIPT MODE 
re = 0 DON'T SPOOL TO APT 
2 BIT 5 = 1 SUPPRESS TTY CONSOLE OUTPUT 


kK 
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Hi = 0 ALLOW TTY CONSOLE OUTPUT. 

<2 BIT 4 TO BIT O ARE NOT USED 
347 3. SWITCH 1 (SOFTWARE SWITCH REGISTER) 

348 IF ENVIRONMENT MODE BIT 7 (SIZING BIT ) IS SET TO 1, 

349 THE SOFTWARE SWITCH REGISTER WILL SE USED, INSTEAD 

329 OF THE HARDWARE TTY CONSOLE SWITCH REGISTER. 

352 4. SWITCH 2 (USER SWITCH REGISTER) 

327 NOT USED 

355 5. CPU OPTIONS 
329 NOT USED 
358 6. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 

32) NOT USED 
361 7. INTERRUPT VECTOR 1: 

306 USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAULT = 254 
364 8. BUS PRIORITY 1: 

4 NOT USED. 

367 9. INTERRUPT VECTOR 2: 

308 NOT USED 

370 10. BUS PRIORITY 2: 

353 NOT USED 

373 11. BASE ADDRESS: 

$e USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAULT = 176700 
376 12; DEVICE MAP: 

Has NOT USED 

379 13. CONTROLLER DESCRIPTOR WORDS: 

380 NOT USED 

382 14. CONTROLLER DESCRIPTOR WORDS: 

383 NOT USED 

384 

385 

386 

387 

388 

4 4. CONTROLLING THE PROGRAM 

91 

92 THe FOLLOWING pha CONVENTIONS ARE USED BY THE KEYBOARD ENTRY 
$07 ROUTINES IN THE PROGRAM: 

395 A. TO DELETE AN INCORRECT CHARACTER FROM AN ENTRY STRING, TYPE A 
396 "RUBOUT’. TYPING A RUBOUT WILL DELETE SUCESSIVE CHARACTERS 
397 FROM THE INPUT. 


98 
399 B. TO DELETE AN ENTIRE LINE, TYPE A ‘CONTROL U* (*U). 
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4.1 


C. AN ENTRY MUST BE TERMINATED BY EITHER A A_*CARRIAGE RETURN’ OR 
R RIOD’ TERMINATION IS RECOGNIZED BY THE 


PROGRAM AL 
BY A ‘PERIOD’ INSTEAD OF A ‘CARRIAGE RETURN’, THE PROGRAM WILL 
ACCEPT THE ENTERED VALUE AND WILL DEFAULT TO THE PRELOADED VALUES 
FOR ANY REMAINING ENTRIES. 


D. IFA ald 3 C* IS TYPED pe DRIVE TESTING MODE THE PROGRAM 
WILL ENTER THE COMMAND MODE. IF A "CONTROL C* IS TYPE G 
"ENTER COMMAND’ SEQUENCE, WITH NO DRIVES ASSIGNED, THE PROGRAM 
WILL BE RESTARTED AT LOCATION 204. Wy oe tS THE PROGRAM WILL 
RETURN TO “ENTER COMMAND’ PROMPT ~~ WAIT FOR ae ee SEQUENCE 
OF CHARACTERS. "F ‘CONTROL C* IS TYPED DURING ANY OTHER ENT 
SEQUENCE, THE PROGRAM WILL RETURN TO THE BEGINNING OF THE GROUP 
SEQUENCE BEING ENTERED. 


PARAMETERS 

THE FOLLOWING QUESTIONS ARE ASKED TO DETERMINE HOW THE RM80 WILL 
BE TESTED. THE DEFAULT ANSWERS TO THESE QUESTIONS ARE ALWAYS 
AS DOCUMENTED HERE. 

"DO YOU WISH TO EXERCISE ONLY FE CYLINDERS (L) Y ?° 
A ‘Y® ANSWER WILL PROCEED WITH ey ONLY THE FE CYLINDERS 
AND SKIP THE FOLLOWING QUESTION. A 'N’ ANSWER WILL PROCEED 10 
NEXT WARNING MESSAGE AND QUESTION (UNLESS THE EXERCISER IS IN 
"READ E(SWO=1), IN WHICH CASE THE WARNING WILL BE 
OMITTED BUT THE GUESTION WILL BE ASKED) = 


*! CUSTOMER DATA WILL BE OVERWRITTEN !° 


"ARE YOU SURE (L) N ?° 


A *Y" ANSWER WILL PROCEED WITH EXERCISING THE WHOLE DISK. A ‘N’ 
ANSWER WILL PROCEED WITH EXERCISING ONLY THE FE CYLINDERS. 


IF ONLY THE FE CYLINDERS ARE TO BE EXERCISED, THE FOLLOWING 
MESSAGE WILL BE PRINTED. 


"* EXERCISER WILL OPERATE ON FE CYLINDERS ONLY *° 

AT THIS POINT, IF THE PROGRAM IS oe IN ‘READ ONLY’* MODE, THE 
FOLLOWING MESSAGE WILL BE TYPED. IF THE PROGRAM IS NOT LOCKED IN 
“READ ONLY’’ MODE, THE FOLLOWING MESSAGE WILL BE OMITTED. 


"LOCKED IN READ ONLY MODE’ 


~ WHEN THE PROGRAM IS STARTED, THE OPERATOR WILL BE ASKED TO ENTER 


PARAMETERS. THE FOLLOWING MESSAGE WILL BE DISPLAYED: 
"CHANGE PARAMETERS (L) N ?° 


THE OPERATOR MUST ENTER A ‘Y* IF PARAMETER ENTRIES ARE TO BE MADE. 
ANY OTHER CHARACTER IS ACCEPTED AS A 'N® ENTRY. THE PROGRAM WILL 


$s 


' i on on I 


EQ 0011 


Ld 
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457 IDENTIFY THE PARAMETER BY THE NAME GIVEN BELOW, DISPLAY, THE UfuRRENT 
458 VALUE OF THE PARAMETER AND WAIT FOR THE ENTRY. THE PROGRAM, W 

459 TYPE "INVALID ENTRY’ IF THE ENTRY IS NOT CORRECT AND WAIT FORA 

460 CORRECT ENTRY TO BE TYPED. (SEE SECTION 4.1.1) 

462 

463 IF THIS IS THE PROGRAM'S FIRST START, THE STATUS OF THE DRIVES ON THE 
464 SELECTED MASSBUS SUBSYSTEM WILL BE PRINTED. ON ALL SUBSEQUcNT STARTS, 
469 THIS TYPEOUT MAY BE INHIBITED BY SETTING SW<02> =1. 

467 THE FOLLOWING IS AN EXAMPLE DRIVE STATUS PRINTOUT: 

469 "DRIVE STATUS 

470 0 ONLINE _RM80 

471 1 DEVI 

472 2 OFFLINE RM80 

473 3 NOT PRESENT 

474 4 NOT PRESENT 

475 5 NOT AN RM8O 

476 6 NOT PRESENT 

427 7 NOT PRESENT* 

479 THE ABOVE DRIVE STATUS SHOWS THAT DRIVE 0 WILL BE TESTED, WHILE DRIVES 
480 1-7 WILL NOT BE TESTED. 

482 4.1.1 KEYBOARD ENTRY PARAMETERS 

484 DEFAULT VALUE 

485 NAME BASE VALUE _——RANGE FUNCTION 

487 WRDCNT 10. 7936. 6 = 7936. CONTROLS THE MAXIMUM WORD 
488 (SEE NOTE) COUNT USED FOR DATA TRANSFERS 
490 NOTE: THE PROGRAM WILL SELECT 
491 A MAXIMUM WORD COUNT. WHICH 
492 Ts DETERMINED BY. THE MEMOR 

493 AVAILABLE. THE MAX. WORD COUNT 
49% ASSIGNED BY THE P 

495 IS 7936.(1 TRK) WORDS. T 
4% OPERATOR MAY SPECIFIY ANY 
497 OTHER MAX. WORD COUNT AS: LONG 
498 AS THE VALUE SPECIFIED IS AT 
499 IES 5 LEAST_6 WORDS BUT NO LARGER 
500 t 36. WORDS OR MEMORY 
501 AVAILABLE. (WHICH EVER VALUE 
302 IS SMALLER) 

504 INTRVL 10. 0 0 = 32767.. DETERMINES THE INTERVAL (IN 
505 MINUTES) BETWEEN AUTOMATIC 
506 PERFORMANCE SURMARY. TYPEOUTS: 
507 NO TYPEOUT IF THIS PARAMETER 
308 IS 0 OR IF Sw<02> =1 

510 PASSES 10. 1 1 = 32767. NUMBER OF PASSES TO END OF 
511 TEST. (THIS PARAMETER IS NOT 
512 USED WHEN THE PROGRAM IS 

513 OPERATING IN AUTO RUN MODE) 
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USO RON S oo ae ieeiend 
WOON AME WN—OOONQAUE 


PUPP DVS STS ST SSS STASIS 
WEES 
MEWN— 


bested 
on 


NAA AMAA DDD DLN 
VN APAnaye = SRR EW 
NOUSWN =O OCONAULSWN OO 


ES Se SS Soe 


PATTERN 10. 


RANDWC 8 
RATIO 8 
ENDING 8 
WRT CHK 8 
MESSAGE 8 
RANDOM 8 


000000 


000002 


000001 


000001 


000001 


000000 


0- 15. 


0 OR 1 


0 OR 1 


0 OR 1 


0 OR 1 


0 OR 1 


SEQ 0013 


if pave ef -DATA_ PATTERN 


IS POINTED BY ARAME TER 
PATTERN. (SEE SECTION 8.4) 
IF PARAMETER = 0, THE WOR 


COUNT IS RANDOMLY SELECTED 
‘apent 6 AND THE VALUE 


IF TER THE WORD 
COUNT WILL BE “He VALUE 


CONTROLS THE APPROXIMATE 
RATIO OF READ TO WRITE 
COMMAND 


VALUE R/ v RATIO 


NOULSWN SO 
~ 
~ 
& 


IF PARAMETER = 1, END OF PASS 
DETERMINED BY THE ‘WORDS READ’ 


IF PARAMETER = 0, END OF PASS 
Is DETERMINED BY THE NUMBER 


IF EQ 1, DO AN APPROPRIATE 
pe CHECK “Ady EACH WRITE 


0, SELECT WRITE 
CHECK COMMAND RANDOMLY. 


F PARAMETER =1, DO NOT PRINT 

RROR MESSAGES FOR DATA ERRORS 
ecCuRINS AT LOCATIONS DEFINED 
BY THE OPERATOR AS BAD DISK. 


LOCATION. 

IF PARAMETE PRINT ERROR 
MESSAGES seeocinte WITH BAD 
DISK LOCATIONS. 


IF_PARAMETER=0 
DATA BLOCK ADDRESS. IS 
COMMAND 


ysee IN 
FP, ARAMETERST SEQUENTIAL 
DATA BLOE BLOCK IS USED IN 


B 2 | 
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571 "T’ COMMAND. 

og BADBLK 8 000000 0 OR 1 IF €Q TO 1, THE BA SECTOR 
574 ENTRY TABLE WILL ALWAYS BE 

575 ONITIALIZED WHEN ASSIGNING 
7 A DRIVE: 
7 IF at TO 0, THE BAD SECTOR 
2° ENTRY TABLE WILL ONLY 
79. NI TTALIZED IF THE HDA SERIAL 
580 UMBER HAS CHANGED SINCE THE 
281 LAST TIME IT WAS READ. 

ogg NOTE: IF THE HDA SERIAL NUMBER 
584 HAS CHANGED THIS MOST LIKELY 
585 MEANS THAT THE HDA OR DRIVE 
586 7 HAD BEEN REPLACED WHILE THE 
587 DRIVE WAS DEASSIGNED. 

259 | 

390 4.1.2 CHANGE DEVICE ADDRESSES 

592 THE RM/RH ADDRESS AND VECTOR MAY BE CHANGED WHEN THE PROGRAM IS 

593 STARTED AT ADDRESS 204 OR IF THE PROGRAM DOES NOT RECEIVE A 


RESPONSE WHEN IT ACCESSES THE DEFAULT RM/RH ADDRESS. 
(DEFAULT ADDRESS = 176700, VECTOR = 254) 
ADDRESS SELECTION EXAMPLES 


EXAMPLE 1 
RMCS1=176700 <CR> 3NO CHANGE IN ADDRESS 
RMVEC=000254 <CR> NO CHANGE IN ADDRESS 
EXAMPLE 2 


RMCS1=176700 177200<CR> ;CHANGE BASE ADDRESS TO 177200 
RMVEC=000254 260<CR> 3CHANGE VECTOR ADDRESS TO 260 


Bee SRascesassee 


610 

61] 4.2 KEYBOARD COMMANDS 

aE THROUGH THE KEYBOARD COMMANDS, THE OPERATOR MAY ASSIGN DRIVES 

614 F T ('T" COMMAND WRITE | SEQUENTIAL DATA ("W® COMMAND) , 

615 PERFORM A SEQUENTIAL READ ( * COMMAND) « PERFORM WRITE DATA AND 

616 FOLLOWED BY TEST OTe COMMAND 5 REQUEST A DRIVE PERFORMANCE 

617 SUMMARY ('S* COMMAND), OR DEASSIGN A DRIVE (°D* COMMAND). 

619 TH HE "T*, "Ww", "R® AND “WT COMMANDS ARE EXCLUSIVE TO ONE ANOTHER 

620 ON THE SAME ORIVE UNDER” Tesye THE "D° COMMAND MUST BE ENTERED IN 

621 ORDER T0 ISSUE A DIFFERENT COMMAND TO THE SAME DRIVE UNDER TEST. 

622 EXCEPT FOR THE '°S* COMMAND, WHICH CAN BE ENTERED AT ANY TIME 

623 DURING THE TEST. 

es 

626 IF THE PROGRAM WAS STARTED AT ADDRESS 204 OR IF NO DRIVES ARE 
ASSIGNED FOR TESTING, THE FOLLOWING MESSAGE WILL BE TYPE BEFORE 


& 
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628 


ENTERING THE COMMAND MODE. HOWEVER A "CONTROL C'° IS TYPED 
WHILE TESTING IS IN PROGRESS, THE Fo towine MESSAGE WILL BE 
OMITTED AND THE PROGRAM WILL ENTER  COMMAN OMMAND MODE. 


"NO DRIVES ASSIGNED* 


WHEN THE PROGRAM ENTERS THE COMMAND MODE, THE FOLLOWING PROMPT 
WILL BE TYPED: 


*HH:MA:SS 
ENTER COMMANDS:' 


THE PROGRAM WILL THEN pee 4 | ANY OF THE VALID COMMANDS. AT THE 
COMPLETION C D PROGRAM WILL EXIT COMMAND MODE AND 
TRY TO ASSIGN THE DRIVE(S) "THAT WERE REQUESTED. IF THE DRIVE(S) 
CANNOT BE ASSIGNED, ONE OF THE FOLLOWING ERROR MESSAGES WILL BE 
REPORTED AND THE PROCESS CONTINUES FOR EACH DRIVE. 


RESPONSE COMMAND (S) 
2DRIVE N LOAD DEVICE T, W, R, WT 
?DRIVE N OFFLINE T, W, R, WT 
?DRIVE N NOT ASSIGNED a) 
2DRIVE N ALREADY ASSIGNED T, Ww, R, WT 
?DRIVE N NOT PRESENT T. W. R, WT 
2DRIVE N UNSAFE T, W, R, WT 
2DRIVE N NOT AN RM8O T, W, R. WT 


NEXT, THE PROGRAM WILL PROCESS ALL THE ASSIGNED DRIVES AS FOLLOWS: 


WHEN THE PROGRAM IS ASSIGNING THE DRIVES, THE OPERATOR WILL BE ASKED 
TO CHANGE THE DRIVE PARAMETERS WITH THE FOLLOWING PROMPT: 


"CHANGE DRIVE PARAMETERS (L) N ?° 


IF THE ENTRY IS A ‘N° FOLLOWED BY A CARRIAGE RETURN OR JUST A ad 
RETURN a tee Me THE PROGRAM WILL _NOT ALLOW ANY DRIVE PARAMETERS 

BE ge A Witt | PROCEED TO TEST THE DRIVES AS ED. 

IF THE ENT vis A 'Y® FOLLOWED BY CARRIAGE RETURN, THE OPERATOR WILL 
BE ALLOWED” TO CHANGE THE DRIVE PARAMETERS AS FOLLOWS. 


THE PROGRAM WILL FIRST TELL THE OPERATOR WHICH DRIVE IS BEING 
REFERENCED FOR CHANGES. 


*aananeeaee DRIVE # N° 


THE PROGRAM WILL THEN_INFORM THE OPERATOR WHAT THE HARD WIRED MBA 
FEOL™, AGED IS AND THE HDA SERIAL NUMBER IS, IN THE FOLLOWING 


‘MBA S/N: X HDA S/N: Y° 
WHERE *X* IS ye a WIRED DECIMAL welt NUMBER CONTAINED IN THE 
RMSN REGISTER OF THE MBA. IF THE MBA SERIAL NUMBER IS NOT JUMPERED 


IN THE RMSN REGISTER, *x? WILL APPEAR AS '222?°. 





SEQ 0015 
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WHERE ‘Y* IS THE a toa SERIAL NUMBER READ FROM THE DEC144 BAD 
SECTOR FILE ON THE HDA. IF THE DEC144 FILE WAS UNABLE TO BE READ 
SUCCESSFULLY, ‘Y* WILL APPEAR AS ‘NONE’. 


THE PROGRAM WILL THEN ASK FOR ADDRESS LIMIT CHANGES WITH THE 
FOLLOWING TYPEOUT: 


‘ENTER ADDRESS LIMITS:' 


THE PROGRAM WILL REQUEST VALUES FOR THE FOLLOWING ADDRESS LIMIT 
PARAMETERS. 


THE FOLLOWING TABLE VALUES ARE USED WHEN THE PROGRAM IS EXERCISING 
THE USER PORTION OF THE DISK. 


DEFAULT VALUE 


NAME VALUE RANGE FUNCTION 

MINCYL 0 0 - 558. THE MINIMUM CYLINDER ADDRESS 
MAXCYL 558. 0 = 558. THE MAXIMUM CYLINDER ADDRESS 
MINTRK 0 - i3. Ly 3 MINIMUM TRACK ADDRESS 
MAXTRK 13. 0 - 13. THE MAXIMUM TRACK ADDRESS 
MINSEC 0 0 - 30. THE MINIMUM SECTOR ADDRESS 
MAXSEC 30. 0 - 30. THE MAXIMUM SECTOR ADDRESS 


WHEN OPERATING WITH CYLINDER 558. AS THE MAXIMUM UT ay THE TRACK 

ADDRESS MAY B LECTABLE FR IF ME CYLINDER 
. C 144 TRACK. 1QURING THE TEST, IF Prue PR OGRAM 

E PROGRAM AUT OMAT ICALLY 

SELECTS THE NEXT USABLE TRACK ADDRESS; THIS ALLOWS ALL THE REST OF 

THE CYLINDERS, TRACK 0 AND 13. TO BE ADDRESSED BY THE OPERATOR. 

THE FOLLOWING TABLE VALUES ARE USED WHEN THE PROGRAM IS EXERCISING 

ON THE ‘FE* CYLINDERS ONLY. 


DEFAULT VALUE 
NAME _VALUE RANGE FUNCTION 


MINCYL "559. 559. = 560. THE MINIMUM CYLINDER ADDRESS 

MAXCYL 560. 559. = 560. THE M4XIMUM CYLINDER ADDRESS 

MINTRK ° 0- 13. THE “MINIMUM TRACK ADDRESS 

MAXTRK 13. 8 - 13. I TRAC 

MINSEC 0 ° 30° THE MINIMUM SECTOR ADDRESS 

MAXSEC 30. 0 - 350. THE MAXIMUM SECTOR ADDRESS 

WHEN OPERATING ON me FE eg ONLY, THE TRACK ADDRESS MAY BE 
SE ABLE FROM 0 - 15. . IF YOU MEMBER, CYLINDER 559. TRACK 0 IS 
THE ey SECTOR a "° CYLINDER 5 _ K 1 mY Sealant Paice THE 


ALTERNATE DEC K. oh dns TO 
ACCESS CYLINDER 559. TRA TICALLY SE wt 
THE NEXT USABLE TRACK ADDRESS. ORs” ALLOWS CYL CYLINDER R's - TRACK 

1 TO BE ADDRESSED BY THE OPERATOR. 


THE PROGRAM WILL THEN ASK FOR BAD SECTOR ADDRESSES WITH THE FOLLOWING 








E 2 
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TYPEOUT: 

"ENTER BAD SECTR ADRS:* 
THE FORMATS USED TO ENTER BAD SECTOR ADDRESS LOCATIONS ARE AS 
FOLLOWS: 


EXAMPLE 1: CYL, TRK,SEC= C,T,S<CR> 


A. THE PROGRAM WILL INHIBIT DATA MESSAGES FOR ERRORS 
OCCURRING AT THE SPECIFIED ADDRESS 


B. LEADING ZEROS ARE NOT REQUIRED. 
EXAMPLE 2: CYL, TRK,SEC= C,T<CR> 


A. WHEN THIS FORMAT IS USED, THE ENTIRE TRACK WILL BE 
CONSIDERED BAD. 


B. DATA ERRORS WILL BE HANDLED AS IN ‘EXAMPLE 1°. 
EXAMPLE 3: CYL, TRK,SEC= C<CR> 


A. WHEN THIS FORMAT IS USED, THE ENTIRE CYLINDER WILL BE 
CONSIDERED BAD 


B. DATA ERRORS WILL BE HANDLED AS IN ‘EXAMPLE 1°. 


IF CONTROL C (*C)_IS TYPED AS AN ENTP’’, ALL CURRENT BAD SECTOR ENTRIES 
WILL BE LOST AND THE FOLLOWING MESSAGE WILL BE TYPED. 


*s ALL CURRENT ENTRIES LOST *° 


AFTER TYPING THE PREVIOUS MESSAGE, THE PROGRAM WILL WAIT FOR THE 
OPERATOR TO ENTER ANOTHER BAD SECTOR AS IN THE PREVIOUS EXAMPLES. 


IF ‘L* IS TYPED FOR AN INPUT CHARACTER, THE PROGRAM WILL TYPE A LIST 
OF DEC144 BAD SECTORS, AND THE MANUALLY ENTERED BAD SECTORS, WHICH ARE 
STORED IN THE DRIVE PARAMETER TABLE(DPB) FOR THAT PARTICULAR DRIVE. 


IF THERE ARE NO SAD SECTORS IN THE DPB TABLE, THE FOLLOWING MESSAGE 
WILL BE TYPED: 


*DEC144 AND PANYAL BAD SECTOR LIST 
* NO ENTRIES * 


HOWEVER, IF THERE ARE ENTRIES IN DPB TABLE, THE LIST WILL BE TYPED 
IN THE FOLLOWING FORMA 


bie AND MANUAL BAD SECTOR LIST 
16,1 

36 

00,1,29° 


THE ABOVE LIST OF BAD SECTORS, ENTRY 1 INDICATES THAT cyL ieee ge 
TRACK 8., SECTOR 3 IS THE BAD SECTOR. ENTRY 2 INDICATES THAT 
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4.2.1 


4.2.2 


4.2.3 


4.2.4 
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EYL INOES 16. lontca 136 ALL THE SECTORS ARE BAD wales TRACK_IS 

BAD). ENTRY $ INDICATES THAT ON CYLINDER viet ALL _TRACKS AND SECTORS 
one oR BAD (ENTIRE CYLINDER IS BAD). ENTRY 4 INDICATES THAT CYLINDER 

500., TRACK 1, SECTOR 29. IS THE BAD SECTOR. 

AFTER TYPING EITHER OF THE TWO PREVIOUS MESSAGES, THE PROGRAM WILL 

RETURN TO WAIT FOR MORE gN TRIES TO BE MADE INTO THE BAD SECTOR TABLE, 

AS IN EXAMPLES 1, 2 AND 

TO TERMINATE THE BAD SECTOR ADDRESS ENTRY, :YPE A ‘CARRIAGE RETURN* 

IN RESPONSE TO THE ENTRY REQ 3 OR TERMINATE THE ENTRY WITH A ‘PERIOD’ 

FOLLOWED BY A ‘CARRIAGE RETURN’ 

*T’ COMMAND 


USED TO ASSIGN A DRIVE(S) FOR A_TEST. THIS COMMAND IS REQUIRED 
TO PERFORM THE TEST OF THE DRIVE(S). 


FORMAT: TN<CR> 


N = DRIVE NUMBER. MAY BE 0 TO 7 OR ‘A*. ENTRY MUST BE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: TO<CR> = ASSIGN DRIVE 0 FOR TEST 
TA<CR> = ASSIGN ALL AVAILABLE DRIVES FOR TEST 


*D" COMMAND 
USED TO DEASSIGN A DRIVE(S) BEING EXERCISED. 
FORMAT: DN<CR> 


= DRIVE NUMBER. MAY BE 0 TO 7 OR ‘A’. ENTRY MUST BE ~ 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: DO<CR> = DEASSIGN DRIVE 0 
DA<CR> = DEASSIGN ALL DRIVES BEING TESTED. 


*S* COMMAND 

USED TO REQUEST PERFORMANCE SUMMARY TYPEOUT FOR THE REFERENCED 
DRIVE(S). AFTER THE °S* C HAS BEEN PERF THE PROGRAM 

WILL AUTOMATICALLY RESUME TESTING THE DRIVE(S) WHICH WERE UNDER TEST. 
FORMAT: SN<CR> 


DRIVE NUMBER. MAY BE 0 TO 7 OR ‘A*. ENTRY MUST BE 
~ TERMINIATED BY A CARRIAGE RETURN <C>. 


EXAMPLE : roe = TYPEOUT PERFORMANCE SUMMARY FOR DRIVE 0 
<CR> = TYPEOUT PERFORMANCE SUMMARY FOR ALL DRIVES 
BEING TESTED. 
*W° COMMAND 


USED TO PERFORM A SEQUENTIAL WRITE OF THE DISK, WITH DATA ACCEPTABLE 
TO THE PERFORMANCE EXERCISER PROGRAM. 































G 
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856 

§27 FORMAT: WN<CR> 

859 = DRIVE NUMBER. MAY BE 0 TO 7 OR ‘A’. ENTRY MUST BE 

reed TERMINATED BY A CARRIAGE TRETURN <CR>. 

86 EXAMPLE: WO<CR> = WRITE A DATA PATTERN ON DRIVE 0. 

Ser WA<CR> = WRITE A DATA PATTERN ON ALL AVAILABLE DRIVES. 
nee 4.2.5  ‘R* COMMAND 

sth USED TO PERFORM A SEQUENTIAL READ OF THE DISK. 

36° FORMAT: RN<CR> 

871 = DRIVE NUMBER. Y BE 0 TO 7 OR ‘A’. ene MUST BE 

HG TERMINATED BY A MCARRIAGE RETURN <CR> 

874 EXAMPLE : so = READ THE DATA ON DRIVE 0. 

o7? <CR> - READ THE DATA ON ALL AVAILABLE DRIVES. 

1s 4.2.6 ‘WT* COMMAND 

ta USED TO PERFORM A SEQUENTIAL WRITE DATA, FOLLOWED BY A °T* COMMAND. 
rt FORMAT: WIN<CR> 

883 N = DRIVE NUMBER 0 TO 7 OR ‘‘A’’. ENTRY MUST BE TERMINATED BY A 
He CARRIAGE RETURN <CR>. 

886 EXAMPLE: 1h geo - WRITE A DATA PATTERN AND TEST DRIVE 0 

eee WTA<CR> - URITE A DATA PATTERN AND TEST ALL DRIVES 
889 

890 

891 S. PERFORMANCE SUMMARY TYPEOUT 


893 

894 5.1 THE PROGRAM WILL DISPLAY A PERFORMANCE SUMMARY FOR THE DRIVES 
895 BEING EXERCISED. THIS SUMMARY WILL BE DISPLAYED gure ae 
896 IF THE PARAMETER “INTRVL* IS NOT ZERO AND SW<02>=0, IF THE 
897 DRIVE HAS REACHED THE DEFINED NUMBER OF PASSES AND SW<08>=0, 
$08 OR IF THE OPERATOR REQUESTS TO DO SO BY USE OF THE ‘S' COMMAND. 


THE SUMMARY TYPEOUT CONTAINS THE FOLLOWING FIELDS: 


ELAPSED TIME OF PROGRAM 

DRIVE NUMBER - DRIVE wr 
PRESENT PASS COUNT FOR THE DRIV 
ARD WIRE Ss 


wR HA OWE 
TOTAL NUMBER OF WORDS WRITTEN BY THE DRIVE 
NUMBER OF TIMES "WRDS READ® HAS OVERFLOWED 
TOTAL we OF WORDS READ BY THE DRIVE 
NUMBER OF SEEK OPERATIONS THE DRIVE PERFORMED 
NUMBER OF SOFT DATA ERRORS 


H 2 
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5.2 
5.2.1 


5.2.2 


6. 


6.1 


6.2 


"HARD NUMBER OF HARD DATA ERRORS 

*SkI' NUMBER oe *SKI* ERROR 

"MISP' NUMBER OF PROGRAM DETECTED POSITIONING ERRORS 
"OTHER' TOTAL ERRORS OF OTHER TYPES 


ALL DATA TRANSFER COUNTS, SEEK COUNTS AND ERROR COUNTS ARE ACCUMULATIVE 
AND WILL NOT BE CLEARED AFTER EACH PASS. 


TO CALCULATE THE TOTAL NUMBER WORDS READ OR WRITTEN, TAKE Pains OVERFLOW 
COUNT (RD OFLOW OR WT OFLOW), MULTIPLY IT BY 2,147,483,64 ADD 
THAT NUMBER TO THE WORDS READ OR WRITTEN (WRDS READ OR onos “WRITN). 


NOTE: forme EM1, EM2, & EMS ARE NOT INCLUDED IN THE ‘CTHER’ ERROR 


SOFT/HARD ERROR DEFINITIONS 
HARD ERRORS 
A. A ‘DTE* (DRIVE TIMING ERROR) OR A “DCK* ye omeex ERROR) 
WICH OCCURS DURING A ‘4 aS - A READ HEADER & DATA OPERATION 


AND I RECTABLE OR DOES NOT BECOME CORR ECTABLE AFTER THE 
A's HAS PERFORMED THE COMPLETE RETRY SEQUENCE ON THE BAD 


THE RETRY SEQUENCE IS 16. RE-READS. 


SOFT ERRORS 

A. ECC CORRECTABLE *DCK* ERRORS. 

B. ‘'DCK® & ‘ECH' ERRORS WHICH BECOME ECC CORRECTABLE DURING 
RETRY OR WHICH ARE READ CORRECTLY DURING RETRY. 

C. HEADER READ ee I READ DATA, READ HEADER & DATA, OR 


WRITE DATA COMMAND 
D. ‘DIE’ ERRORS WHICH ARE CORRECTED OR WHICH BECOME ECC CORRECTABLE 
"DCK® ERROR DURING THE RETRY SEQUENCE. 


DATA CHECKING & ERROR RECOVERY 


DATA COMPARISON 


DATA COMPARISON OCCURS AFTER EACH "RDDAT' (READ DATA) OR ‘RDHD' 
(READ HEADER AND DATA) OPERATION UNDER THE FOLLOWING CONDITIONS: 


A. THE COMMAND TERMINATED WITH NO ERRORS AND SwW<01>=0 

B. THE OPERATION TERMINATED WITH °DCK® SET AND THE ERROR IS ECC 
CORRECTABLE OR THE SECTOR IN ERROR IS READ CORRECTLY AFTER 
RETRY ATTEMPTS. 

VERIFICATION OF DATA WRITTEN 


DATA VERIFICATION IS DONE EITHER THROUGH READING THE DATA BACK 


Ci 
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AND MATCHING THE DATA WITH ONE OF THE 15. PATTERNS OR THROUGH 
ISSUING A WRITE CHECK COMMAND AFTER DOING A WRITE DATA COMMAND. 


BAD ADDRESS FLAGGING 


WHEN A DRIVE IS ASSIGNED ty BE TESTED, THE PROGRAM READS THE BAD 
SECTOR FILE (DEC144)_ FROM T .. DISK AND THEN ALLOWS ADDITIONAL BAD 
SECTORS TO BE ENTERED MANUALL 


A MAXIMUM OF 252. BAD SECTORS ARE ALLOWED FOR EACH DRIVE, BOTH 
READING FROM THE DEC144 FILE AND ENTERING FROM KEYBOARD. 


THE MANUALLY ENTERED BAD SECTORS ARE NOT RECORDED TO THE BAD SECTOR 
FILE OF THE DISK CURRENT UNDER TESTING. 


IF ONE OF THE FOLLOWING ERRORS OCCURS AT A LOCATION IDENTIFIED BY 
4 a lee TABLE, THE PROGRAM WILL INHIBIT THE ERROR REPORT FOR 


DATA CHECK ERRORS ‘***:.") 

WRITE CHECK ERROPS ;“4ce") 

OPERATION INCORW™ | = GRRORS ("OPI") 

DRIVE TIMING Elias ('D 

HEADER READ EP*ORS FER W/ HCRC’, ‘HCE W/ HCRC® OR ‘HCRC*) 


ERROR MESSAGES 


ERRORS ARE REPORTED ON i TTY CONSOLE. THE PROGRAM CONTAINS 

NO CODED ERROR HALTS. Rad HE PROGRAM HALTS (ASSUMING, OF COURSE, 

THAT SW<15> IS NOT SET), AN UNRECOVERABLE PROGRAM CONDITION HAS 

OCCURRED OR A CENTRAL PROCESSOR FAILURE HAS OCCURRED. 

cana MESSAGES ARE MADE UP OF SEVERAL LINES. EACH TYPE OF ERROR 
S SEVERAL OPTIONAL LINES WHICH MAY Yee WITH IT. ALL OF THE 

POSSTBL E ERR OR MESSAGE LINES WHICH MAY APPEAR ARE GIVEN IN THE 

SECTION DESCRIBING THE PARTICULAR ERROR HEADER. 

ERROR DESCRIPTION LINES 

(THE MESSAGE TAGS ARE GIVEN FOR REFERENCE.) 


MESSAGE 
TAG TEXT 
EM1 RH CONTROLLER INTERRUPT OCCURRED (RMAS=0) 


THE RH CONTROLLER INTERRUPTED AND THE ATTENTION SUMMARY 
REGISTER (RMAS) WAS CLEARED. 


EM2 UNEXPECTED ATTENTION OCCURRED 


THE INDICATED DRIVE INTERRUPTED BUT THE DRIVE WAS NOT 
PERFORMING AN OPERATION. 


J 2 
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1027 EM3 ——-NOT_USED 
1028 
10¢9 EM4 —-NOT_—USED 
1031 EMS ADDRESS PLUG CHANGE BIT SET 
1038 THE 'OPE' BIT WAS SET WHEN THE INDICATED DRIVE INTERRUPTED. 
1035 EM6 —sNOT_— USED 
1036 
1037 EM10 —NOT_USED 
1038 
1039 EM11 ‘NOT USED 
1040 
1061 EM12 NOT USED 
1948 EM13 OPERATION NOT COMPLETED WITHIN TIME LIMIT 
1045 THE DRIVE DID NOT COMPLETE THE OPERATION WITHIN 10. SECONDS 
1046 AFTER THE OPERATION WAS INITIATED. 
1048 EM14 DRIVE WENT OFFLINE 
1050 THE DRIVE WENT OFFLINE DURING THE INDICATED OPERATION. 
1051 (THE 'MOL’ BIT BECAME ZERO.) THE PROGRAM WILL AUTOMATICALLY 
1052 DEASSIGN THE DRIVE. THE OPERATOR MUST REASSIGN THE DRIVE 
1095 WITH THE 'T’ COMMAND TO RE~INITIATE TESTING. 
1055 EM15 NO RESPONSE TO PORT REQUEST 
1057 THE PROGRAM IS TESTING A DUAL PORT DRIVE WHICH HAS NOT SWITCHED 
1058 TO THE REQUESTING PORT WITHIN 15. SECONDS AFTER PORT REQUEST 
1059 TO THE DRIVE FROM THE REPORTING PORT. 
1061 EM20 HEADER CRC ERROR 
1063 A HEADER CRC ERROR WAS DETECTED AT THE INDICATED DISK ADDRESS. 
1064 THE CONTENTS OF THE HEADER ARE DISPLAYED. THE OPERATION WILL 
1065 BE RETRIED 3 TIMES. 
1067 EM21 DATA CHECK (*DCK") ERROR 
1069 A DATA CHECK ERROR WAS DETECTED AT THE INDICATED SECTOR. 
1070 THE FULL RETRY SEQUENCE WILL BE INITIATED 
1071 FOR THE SECTOR IN ERROR IF THE ECC HARD ERROR (*ECH) BIT 
107 IS SET. 
107% EM22 WRITE CHECK ERROR = DATA CHECK ("DCK") SET 
1076 A WRITE CHECK ERROR OCCURRED AND THE DATA CHECK ("DCK*) BIT 
1077 WAS SET. IF "ECH' IS NOT SET, THE OPERATION WILL BE RETRIED 
1078 UP TO 3 TIMES; IF THE ‘ECH’ BIT IS SET, THE OPERATION WILL 
1079 BE RETRIED UP TO 16. TIMES. 
1081 EM23 WRITE CHECK ERROR ~ DATA CHECK ("DCK") NOT SET 
1 


083 A WRITE CHECK ERROR OCCURRED AND ‘DCK' WAS NOT SET. THE 
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EM24 


EmM25 


EM26 


EM27 


EM30 


EM31 


EM32 


EM33 


EM34 


EM35 


EM36 


2 
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WORDS WHICH CAUSED THE ERROR ARE DISPLAYED _IN THE ERROR 
MESSAGE. THE OPERATION WILL BE RETRIED 3 TIMES. 


HEADER READ ERROR = ‘FMT’ BIT DROPPED 

A WRITE DATA, WRITE CHECK DATA, OR A READ DATA WAS BEING 
PERFORMED AND A ‘FMT’ ERROR OCCURRED. THE PROGRAM REREAD THE 
HEADER OF THE ERROR SECTOR AND THE ‘HCRC" BIT WAS SET. THE 
CONTENTS OF _THE HEADER ARE DISPLAYED. THE OPERATION WILL 

BE RETRIED 3 TIMES. 

HEADER READ ERROR = HEADER COMPARE (‘HCE') ERROR 


SIMILAR TO EM24, EXCEPT THAT THE ‘HCE’ ERROR BIT WAS 
SET INITIALLY. THE OPERATION WILL BE RETRIED 3 TIMES. 


FORMAT ERROR (‘FER") 

FORMAT ERROR OCCURRED. WHEN THE HEADER WAS RE-READ, THE 
"HCRC’ BIT WAS NOT SET. THE CONTENTS OF THE HEADER ARE 
DISPLAYED. THE OPERATION WILL BE RETRIED 3 TIMES. 
HEADER COMPARE (‘HCE’) ERROR 


SIMILAR TO EM26 EXCEPT THAT THE ‘HCE* BIT WAS SET INITIALLY. 
THE OPERATION WILL BE RETRIED 3 TIMES. 


MISCELLANEOUS DRIVE ERROR 


THIS MESSAGE IS GIVEN FOR THE FOLLOWING ERROR BITS: 
‘AOE’, ‘RMR’, “ILF*, OR ‘ILR® 


OPERATION INCOMPLETE (‘OPI’) ERROR 


2m INCOMPLETE ERROR OCCURRED AT THE INDICATED 


DRIVE TIMING (*DTE*) ERROR 


DRIVE TIMING ERROR OCCURRED ON THE INDICATED SECTOR. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


PARITY ("PAR*) ERROR AFTER OPERATION STARTED 


THE *PAR* BIT WAS SET WHEN THE OPERATION WAS COMPLETED. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


WRITE CLOCK FAILURE (*WCF*) 


A WRITE CLOCK FAILURE OCCURRED DURING THE OPERATION. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


INVALID ADDRESS ("IAE*) ERROR 
AN INVALID ADDRESS ERROR OCCURRED DURING THE OPERATION. 
WRITE LOCK (*WLE*) ERROR 
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ot te OPERATION WAS ATTEMPTED BUT THE DRIVE WAS WRITE 


EM40 RH CONTROLLER OR UNIBUS TRANSFER ERROR 
"TRE IS SET _IN THE RH CONTROL REGISTER AND NO DRIVE 
ERROR HAS OCCURRED. THE OPERATION WILL BE ee 2 
TIMES IF THE ERROR WAS CAUSED BY "DLT", ‘UPE', 
OR 'MDPE’. 
EM41 BUS ADDRESS OR WORD COUNT INCORRECT 
ee wy ERROR OCCURRED A+ oo THE BUS ADDRESS INDICATES 
AN INCORRECT NUMBER OF WORDS WERE TRANSFERED OR THE 
WORD COUNT REGISTER IS NOT ZERO. 
EM42 DATA COMPARE ERRORS = NO DRIVE ERROR DETECTED 


NO SUBSYSTEM ERROR WAS SIGNALED; HOWEVER, THE DATA DOES NOT 
COMPARE . 


CAORDMMVUMUMUVUVIVINE SERRE LES 


at kd at tt ot 
on 
SALA LS SONS E WN OOWNAURWNS 


Oo 


EM43 CAN'T MATCH DATA READ WITH A PATTERN = UNDEFINED DATA PATTERN 
THE DATA IN THE BUFFER DOES NOT MATCH ANY OF THE STANDARD 
PATTERNS. 


£M44 ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH CONTROLLER 


THE OPERATION COMPLETED NORMALLY; HOWEVER, THE PROGRAM 
FOUND EITHER ERROR BITS IN THE RM SET OR ERROR BITS IN 
THE RH CONTROLLER SET. 


EM45 ECC LOGIC FAILURE - POSITION REGISTER VALUE NOT VALID 
DURING ‘DCK' ERROR ae yee THE ng gg OF THE ECC 
POSITION REGISTER (RMEC1) WAS NOT VALID. THE POSITION 
REGISTER WAS EITHER 0 OR GREATER THAN 010040. 

EM46 BUS ADDRESS OR WORD COUNT NOT CONSISTENT 
THE PROGRAM WAS PROCESSING AN ERROR AND FOUND T THE 

NUMBER OF WORDS TRANSFERED AS_INDICATED BY THE BUS ADDRESS 
REGISTER DOES NOT AGREE WITH THE TRANSFER COUNT FROM THE 
WORD COUNT REGISTER. 
EM47 ECC LOGIC FAILURE = PATTERN REGISTER IS ZERO 


DURING "DCK' ERROR PROCESSING, THE CONTENTS OF ECC PATTERN 
rH ap th tee WAS NOT VALID. THE PATTERN REGISTCR CONTAINED 


me ee ed ce ee ee ec et ed ee ee ee ce ee ae ed ed ed ced ed ad ed ed 
tat — td 

o 

N 


= dd a dd od od 
VO RONVSISS 


att 
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EMSO SEEK INCOMPLETE ERROR 
THE DRIVE SIGNALED EITHER ‘SKI* ERROR. 
EMS1 NOT USED 
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4198 

1199 EMS2 ECH ERROR = UNCORRECTABLE ECC ERROR 

1201 DURING "DCK* ERROR PROCESSING, THE ‘ECH' BIT WAS SET IN 

1202 RMER1, WHICH INDICATES THAT DATA CHECK CANNOT BE ECC 

it 3't4 CORRECTED. 

\¢02 EM60 DEVICE UNSAFE 

1207 THE INDICATED DRIVE UNSAFE ERROR OCCURRED; THE ERROR WAS 
oS CLEARED BY A ‘DRIVE CLEAR® INSTRUCTION. 


7.2 DETAIL ERROR LINES 
THE LINE NUMBERS GIVEN BELOW ARE FOR REFERENCE ONLY. 


HH:MM:SS 


‘HH:MM:SS* IS THE TIME SINCE THE PROGRAM WAS STARTED. 
(HOURS, MINUTES, SECONDS) 


(RINE Se e- 


epee 
4 


‘PRSNT COMMAND= XXXX PREV COMMAND= YYVY" 
MNEMONICS USED FOR THE COMMANDS ARE DEFINED BELOW: 


SEEK (OCTAL 5) 
RECALIBRATE (OCTAL . 


BU Urororororoiorurururiinrorororarurururvunarunny 
) Nm nm mn 
WAR =OOONOAUSWN OO VONAUSWN Oo 


Bay 
2 
S 
2 


AR 
GET REGISTERS (OCTAL 41) 
ORMAT (ECI OR mR (OCTAL 43) 


v 

> 

- 

x 
eeveveevvevoetreovoene 

o 

x 

>zs40%" 
4 z oO 

al 

ia 

~~ 

i=) 

o 

> 

—~ 

w 

wv 


R CTAL_51) 

WRITE CHECK HEADER & DATA (OCTAL 53) 
TDAT WRITE DATA (OCTAL 61) 

WRTHD = WRITE CHECK HEADER & DATA (OCTAL 63) 

RDDAT = READ DATA (OCTAL 71) 

RDHD - READ HEADER & DATA (OCTAL 73) 


* SPECIAL RM DRIVER COMMAND (NOT A CONTROLLER COMMAND) 


(DISPLAY OF THE RH/RM REGISTERS IN TWO GROUPS: 

RMCS1, RMCS2, RMDS, RMER1, RMER2, RMEC1 AND RMEC2 FORM THE FIRST 
GROUP: ALL THE OTHER REGISTERS ARE IN THE SECON ‘ 

IF SW<O05> IS SET, ONLY THE REGISTERS IN THE FIRST GROUP WILL BE 


Rononononoronononononony 
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ek ed dd td dd od td 
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1255 DISPLAYED.) 
1336 
1258 THE ABOVE LINE WILL BE TYPED IF THE ERROR OCCURRED DURING 
1239 THE NON-DATA TRANSFER PART OF THE OPERATION. 
1261 "® ERROR AT BAD TRACK/SECTOR' 
156 THE ABOVE LINE WILL BE PRINTED IF A DATA ERROR OCCURES AT AN ADDRESS 
1264 ON -THE DISK WHICH THE OPERATOR HAS IDENTIFIED AS BEING BAD. PARAMETER 
1265 "NOTPRT® MUST BE 0 FOR THE ERROR TO BE REPORTED. 
1267 A WORD CALLED ‘STATUS’ IS DISPLAYED WITH THE RM REGISTERS. THE 
1268 CONTENTS OF THIS WORD IDENTIFY HOW THE ERROR WAS PROCESSED BY THE 
1269 RM DRIVE“HANDLER ROUTINE. (SEE SECTION 9.7) 
. ie 
1271 LINE 3°: 
iste ow oS ED . 
teh ERROR AT CXXX TYY SZZ PREV ADDR= CUUU TVV SWW 
1276 THE ACTUAL ADDRESS OF THE ERROR SECTOR AND THE PREVIOUS 
1277 DISK ADDRESS ARE GIVEN IN THIS LINE. CYLINDER, TRACK, & 
1278 SECTOR ADDRESSES ARE IN DECIMAL. 
1280 LINE 4 
a PRSNT ADDR= CXXX TYY SZZ PREV ADDR= CUUU TVV SWW 
1285 THIS LINE IDENTIFIES THE ADDRESS WHEN THE ERROR WAS DETECTED; 
1286 THE PREVIOUS ADDRESS IS ALSO GIVEN. CYLINDER, TRACK, & SECTOR 
1287 ADDRESSES ARE GIVEN IN DECIMAL. 
1289 LINE 5 
1291 
1336 START CYL= XXX END CYL= YYY 
1294 THIS LINE IDENTIFIES THE STARTING CYLINDER OR A SEEK (IMPLIED) 
1295 AND THE DESTINATION CYLINDER. CYLINDER ADDRESSES ARE IN 
1296 DECIMAL. ny 
1297 
1298 LINE 6 
3.44 @eeeeuee 
1300 
130) START CYL= XXX END CYL= YYY ACTUAL CYL= 222 
1303 THIS LINE IDENTIFIES THE STARTING CYLINDER OF AN IMPLIED SEEK, 
1304 _THE DESTINATION CYLINDER, AND THE CYLINDER THE DISK ACTUALLY 
1306 STOPPED AT. CYLINDER ADDRESSES ARE IN DECIMAL. 
130 LINE 7 
1310 RMBA= XXXX RMWC= YYYY 
1311 
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THIS LINE GIVES THE CONTENTS OF THE RH CONTROLLER BUFFER ADDRESS 
REGISTER AND THE RH CONTROLLER WORD COUNT REGISTER. THIS LINE IS 
NOT PRINTED IF SW<05> IS NOT SET. 


START CYL= XXX START TRK= YY START SECTOR= 22 


THIS LINE IDENTIFIES THE STARTING DISK ADDRESS OF THE PRESENT 
OPERATION. CYLINDER, TRACK, AND SECTOR VALUES ARE DECIMAL. 


RMDA= XXXX RMCA= YYYY 


THIS LINE GIVES THE CONTENTS OF THE RM TRACK AND SECTOR 
ADDRESS REGISTER AND THE CONTENTS OF THE DESIRED CYLINDER 
SBORESS REGISTER. THIS LINE IS NOT PRINTED IF SW<05> IS NOT 


LINE 10 


BUFFER ADDR= XXXX WRD CNT= YYYY ACTUAL NUMBR WRDS XFRD= 2222 


THIS LINE GIVES THE STARTING ADDRESS OF THE BUFFER USED FOR THE 
CURRENT DATA TRANSFER OPERATION, ITS COUNT), AND THE 
ACTUAL NUMBER OF WORD TRANSFERED. THE STARTING ADDRESS OF THE 
BUFFER Is IN, OCTAL. THE WORD COUNT AND WORDS TRANSFERED VALUE 


LINE 11 


EXPCTD DATA= XXXX RECEVD DATA= YYYY WORD POS= 222 


THIS LINE GIVES THE EXPECTED DATA, THE RECIEVED DATA FROM THE 
Ae MAL LOCATION OF THE WORD IN THE SECTOR. THE WORD POSITION 


DISK, 
IS IN 


LINE 12 


HEADER CONTENTS OF ERROR SECTOR= XXXX XXXX XXXX XXXX 


THIS LINE GIVES THE CONTENTS OF THE HEADER OF THE SECTOR WHICH 
GAVE THE ERROR. 


LINE 13 


RMEC1= XXXX RMEC2= YYYY 


THIS LINE WILL BE PRINTED AFTER A SUCESSFUL RETRY OF A SECTOR 
WHICH BECAME ECC CORRECTABLE DURING RETRY. 


om 
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1370 
He 
He 
1374 


1375 
1376 
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LINE 14 


ECC CORRECTABLE 


THE SECTOR IN ERROR IS ECC CORRECTABLE; NO RETRY ATTEMPTS ARE 
NECESSARY. 


LINE 15 


READ CORRECTLY 
THE SECTOR IN ERROR WAS READ WITHOUT ERROR. 


ECC CORRECTABLE 
THE SECTOR IN ERROR BECAME ECC CORRECTABLE 
LINE 17 


CORRECTED ON X RETRY 
ir WAS PERFORMED ERROR FREE ON THE INDICATED RETRY 


UNCORRECTABLE AFTER X RETRIES 


THE OPERATION COULD NOT BE PERFORMED CORRECTLY AFTER THE 
INDICATED NUMBER OF RETRY ATTEMPTS. 


DIFFERENT ERROR DURING RETRY 
WHILE THE PROGRAM WAS RETRYING THE ERROR, A DIFFERENT OCCURRED. 


IF THIS LINE IS PRINTED, THE RH/RM REGISTERS WILL ALSO BE 
PRINTED (SEE LINE 2). 


DATA COMPARISON ERRORS 
A PRINT: JT OF THE DATA COMPARISON ERRORS FOLLOW THIS LINE. 
LINE 21 


aonm 
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1426 
et TOTAL COMPARE ERRORS= XXXX 
bit THIS LINE GIVES THE TOTAL DATA COMPARISON ERROR COUNT. THE 
1O3 VALUE GIVEN IS IN DECIMAL. 
1432 LINE 22 
1433 fm tes Oe SH 
1434 
ie? THE DATA COMPARED OK 
1437 THIS LINE INDICATES THE RESULTS OF THE DATA COMPARISON FOLLOWING 
1438 ECC CORRECTION. 
1439 
1440 LINE 23 
1441 ey ep Se Ne eS 
1442 
ya ECC CORRECTION RESULTS 
1445 THE PROGRAM PERFORMED ECC_ CORRECTION AND THE RESULTS ARE REPORTED. 
1446 THE ADDRESS IN MEMORY OF THE WORD(S) IN ERROR ARE GIVEN, THE WORD(S) 
ri BEFORE CORRECTION AND THE WORD(S) AFTER CORRECTION ARE PRINTED. 
1449 LINE 24 
438 ERROR BURST BEGINS AT WORD XXX IN DATA FIELD OF ERROR SECTOR 
1454 THIS IS AN INFORMATIONAL LINE WHICH WILL BE PRINTED FOR ‘DCK* ERRORS 
1455 WHICH ARE ECC CORRECTABLE OR WHICH BECOME ECC CORRECTABLE DURING 
1456 RETRY. '‘XXX* IS THE WORD OFFSET VALUE FROM ‘RMEC1" AND IS IN 
1457 DECIMAL. 
1458 
1459 LINE 25 
1461 
1462 ERROR WAS NOT IN THE DATA READ - 
167 ECC CORRECTION CAN'T BE PERFORMED 
reas THE DATA ERROR WAS NOT IN DATA TRANSFERED TO MEMORY. 
1467 LINE 26 
byte CONTENTS OF THE ERROR SECTOR (REPORTED ABOVE) 
147 IF SW<03> IS SET, THE SECTOR WHICH GAVE THE ‘DCK’, ‘DTE* OR, 
1473 "WCF* ERROR OR ‘HARD’ DATA CHECK ERROR IS PRINTED. THE 
en CONTENTS OF THE SECTOR FOLLOW THIS LINE. 
1476 LINE 27 
via TOTAL ERRORS:X WOFL:N WRDS WRITN: YYYY ROFL:N WRDS READ: 2222 
1481 THIS IS THE LAST LINE PRINTED FOR ALL NON-POSITIONING 
1482 TYPE ERRORS. 
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Se "ERRORS IS THE TOTAL ERROR COUNT FOR THE DRIVE AND INCLUDES 


"WRDS WRITN’ IS THE TOTAL NUMBER OF WORDS WRITTEN THE DRIVE. 


"WRDS READ’ IS THE TOTAL NUMBER OF WORD READ BY THE DRIVE. 


THIS IS THE LAST LINE PRINTED FOR ALL POSITIONING TYPE ERRORS. 


1483 
14 
re +4 EVERY ERROR DETECTED, REGARDLESS OF TYPE. 
bs "WOFL® NUMBER OF TIMES ‘WRDS WRITN’ HAS OVERFLOWED 
1489 
ey "ROFL® NUMBER OF TIMES ‘WRDS READ’ HAS OVERFLOWED 
1492 
1493 LINE 28 
RA A ae ee eas 
Lyd TOTAL SEEKS: XXX TOTAL POS ERR= YYY TOTAL SKI ERR= Z 
1498 
499 
00 
0 BY THE DRIVE. 


"TOTAL SEEKS® IS THE TOTAL NUMBER OF SEEK OPERATIONS PERFORMED 


1 
2 
3 "TOTAL POS ERR’ IS THE TOTAL NUMBER OF PROGRAM DETECTED POSITIONING 
ed ERROR BY THE DRIVE. 


"TOTAL SKI ERR’ IS THE TOTAL NUMBER OF ‘SKI" ERRORS SIGNALED BY 
THE DRIVE. 


PROVIDING APT TTY ENABLE BIT IS SET 
R_THAN APT SCRI AL E 
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1506 

1507 

1508 

1509 

1319 8. PROGRAM DESCRIPTION 

1512 

131? 8.1 PROGRAM OPERATION 

1515 WHEN THE PROGRAM IS STARTED 
1216 OR eat as LOADED BY 0 
1518 UNDER OPERATOR TTY 

1519 CONSISTENCY. RH CONTROLL 


KEYBOARD INTERRUPT ENABLE 
IS STARTED. COMMAND ENTRIE 


THE PROGRAM SCANS ITS INTERNAL ASSIGNMENT TABLES, LOOKING FOR: 


1) DRIVES TO ASSIGN/DEASSIGN 
$3 PERFORMANCE SUMMARY TYPEOUT REQUEST 
) DRIVES REQUIRING COMMAND 

OR PARAMETER SELECTION. 
4) DRIVES COMPLETING CURRENT OPERATIONS. 


THE PROGRAM CONTINUES SCANNING ITS TABLES UNTIL AN ENTRY IS FOUND. 
IN THE CASE OF THE PROGRAM AT INITIAL START 
BE MADE BY THE OPERATOR WHEN A DRIVE IS ASS 


WHEN A DRIVE IS ASSIGNED 
DRIVE IS PRESENT, IS 

THEN ISSUES A ‘READIN PRESET 
A "RECALIBRATE® INSTRUCTION. 


SET, AND T 1 
S WILL NOW BE ACCEPTED BY THE PROGRAM 


Ss 
INITIATION, BUFFER ASSIGNEMENT, 
ST ENTRY WILL 
COMMAND) . 


THE KEYBOARD ENTRY ROUTINE VERIFICS THAT THE 
¢ AND IS ONLINE. THE oaal eee ROUTINE 
INSTRUCTION, SETS ‘FMT16°, AND ISSUES 
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ee ee ed eed ee ae ceed cee ced ee ed ced ed ed ed ad ad ed ed ed nd od td od = 2d = 
™N 


RAAAAAAI 
KARASLESE 


ee kat FOR Na ea ARE SELECTED AND A BUFFER IS ASSIGNED. IF 
THE OPERATION IS A WRITE OR WRITE CHECK COMMAND iy. * = IGNED BUFFER 
WILL BE arithee Ade vA SELECTED PATTERN. cwRIfE ¢ K COMMANDS ARE 
ISSUED AFTER EACH WRITE COMMAND. THE WRITE CHECK COMMAND USES THE 
PARAMETERS SELECTED FOR THE PRECEDING WRITE COMMAND.) CONTROL 
IS THEN PASSED TO THE COMMAND INITIATION ROUTINE. 


THE COMMAND INITIATION ROUTINE FIRST LOOKS AT THE CYLINDER ADDRESS OF 
THE REQUESTED OPERATION. IF THE DRIVE MUST SEEK TO ANOTHER CYLINDER TO 
PERFORM THE OP ath THE PROGRAM ISSUES A SEARCH INSTRUCTION 
TO THE DRIVE WITH A ‘TARGET’ SECTOR WHICH IS 5 SECTORS EARLIER 
_ THAN THE TTRANSFER® SECTOR. (THIS ALLOWS THE PROGRAM TO INITIATE 
OPERATIONS ON ANOTHER DRIVE WHILE THE Toke a re OR OTHER 
DRIVES, ARE SEARCHING FOR ‘TARGET’ SECTORS. SEEKS ISSUED BY 
THE PROGRAM ARE tet Be SEEK SEARCH OPERATIONS.) WHEN A oe 
DRIVE FINDS THE ‘TARGET® SECTOR AND INTER PROGRAM THEN 
ISSUES THE REQUESTED COMMAND TO THE DRIVE THAT INTERRUPTED. 


WHEN THE DATA TRANSFER OPERATION IS COMPLETE, THE DRIVE REGISTERS 
ARE STORED AND A DATA TRANSFER IS INITIATED FOR A WAITING DRIVE. 


IF THE OPERATION HAS BEEN COMPLETED NORMALLY, THE swyes wk wake 
ARE CHECKED TO VERIFY THAT NO ERROR BITS ARE SET; THE RH CONTROLLER 
BUS es SS_AND WORD COUNT ADDRESS REGISTERS ARE CHECKED TO VER IFY 
THAT THE CORRECT NUMBER OF WORDS HAVE BEEN TRANSFERED AND THAT THE 
“ pry fans ARE art a WITH EACH OTHER; AND i was 


READ C TA BUFFER IS COMPARED. WHEN THIS SEQUENCE 

COMPLETED, THE DRIVE IS RETURNED TO THE ASSIGNED INACTIVE LIST. THE 
ROGRAM THEN INITIATES A DATA_TRANSFER ON A WAITING DRIVE AND 

RESELECTS AND REINITIATES ANOTHER OPERATION ON THE RELEASED DRIVE. 


ERRORS WHICH OCCUR ARE PROCESSED IN THE FOLLOWING ORDER. MULTIPLE 
ERRORS WILL BE REPORTED AS THE FIRST ERROR TYPE CHECKED. 


A. ERRORS REPORTED FOR OPERATIONS WHICH HAVE NOT COMPLETED NORMALLY. 


OPERATION NOT COMPLETED WITHIN TIME LIMIT - EM13 
DRIVE WENT OFFLINE = EM14 


B. ERRORS REPORTED FOR OPERATIONS WHICH COMPLETE NORMALLY. 


CORRECTABLE UNSAFE ° = se 
DRIVE aa ERROR 


DATA CHECK ERROR - 
WRITE CHECK ae bck oe - EM22 
HEADER CR . oke 


FORMAT ERR ORS 24 

HEADER COR DARE “ER PRORS © EM25, &M27 

PROGRAM D DETECTED POSITIONING: ERROR = £51 

SEEK INCOMPLETE ERROR = EM5O 

WRITE CHECK WITHOUT 'DCK' SET = EM23 
CONTROLLER OR - TRANSFER ERROR = EM40 
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MISCELLANEOUS DRIVE ERROR =~ EM30 
C. ERRORS NOT FLAGGED BY THE HARDWARE ERROR DETECTION LOGIC. 


BUS ADDRESS OR WORD COUNT INCORRECT - EM41 
DATA COMPARE ERRORS = NO DRIVE ERROR DETECTED = EM42 
CAN'T MATCH DATA READ WITH A PATTERN - 
T, BUT NO ERROR SIGNALED BY THE RH CONTROLLER = EM44 
ECC LOGIC FAILURE = EM4 
BUS ADDRESS OR WORD COUNT NOT CONSISTENT = EM46 


8.2 DUAL PORT OPERATION 


DUAL PORT OPERATION IS NEARLY IDENTICAL TO THE OPERATION DESCRIBED 
IN SECTION 8.1. THE DIFFERENCES ARE IN COMMAND SEQUENCE INITIATION 
AND COMMAND TERMINATION. 


SeeRoRoNcSss 
2 
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WHEN THE DUAL PORT HANDLER ROUTINE IN THE EXERCISER PROGRAM RECEIVES 

A REQUEST FOR A DRIVE, THE PROGRAM VERIFIES THAT THE DRIVE IS 

ONLINE. JHE DRIVE IS SELECTED AND THE RMCS1 REGISTER IS READ TO 

TEST THE ‘DVA’’ BIT. IF THE DRIVE IS_IN NEUTRAL, THIS WILL SEIZE THE 

DRIVE. IF THE DRIVE IS SEIZED BY THE OTHER PORT, A DRIVE CLEAR COMMAND 

IS ISSUED TO THE DRIVE TO SET ‘PORT REQUEST*. THE PROGRAM THEN CHECKS 

"DVA’_IN "RMCS1°. IF THE DRIVE IS AVAILABLE AS_INDICATED BY THE ‘DVA' 

BIT, THE COMMAND SEQUENCE WILL BE INITIATED _IN THE NORMAL MANNER (SEE 

SECTION 8.1 ABOVE). IF ‘DVA’ WAS NOT SET, THE PROGRAM MAKES AN ENTRY 

FOR THE DRIVE IN AN INTERNAL "PORT REQUEST PENDING’ TABLE AND 

STARTS A_15. SECOND TIMER FOR THE DRIVE. IF THE DRIVE HAS 

NOT SWITCHED TO THE REQUESTING SYSTEM WITHIN THE 15. SECOND INTERVAL, 

THE PROGRAM REPORTS A ° SPONSE TO PORT REQUEST’ ERROR. NORMALLY 

THIS ERROR MESSAGE INDICATES A FAILURE IN THE DUAL PORT CONTROL 

LOGIC IN THE DRIVE BEING TESTED; HOWEVER, UNDER CERTAIN CONDITIONS 
SBUS PARITY ERRORS BEING REPORTED ON THE OTHER SYSTEM 

. THE OTHER PROCESSOR WAS UNABLE TO PROCESS THE DRIVE 

AFTER IT HAD REQUESTED THE DRIVE. THE OPERATOR MUST BE AWARE OF 

WHAT THE OTHER SYSTEM IS DOING AT ALL TIMES TO INTERPRET THE PORT 

RELATED ERROR MESSAGES PROPERLY. 


AFTER A DRIVE HAS COMPLETED AN OPERATION, THE PROGRAM WILL STORE 
THE REGISTERS AND ISSUE A ‘RELEASE* TO THE DRIVE; IF THE OPERATION 
TERMINATED WITH AN ERROR, THE DRIVE WILL NOT BE RELEASED UNTIL 
ERROR PROCESSING HAS BEEN COMPLETED. 


SINGLE PORT DRIVES, DRIVES WHICH ARE_IN NEUTRAL BUT NOT BEING 
EXERCISED BY THE OPPOSITE PORT ARE ST REAT 
DRIVES aA RELEASE COMMAND IS i 


COMMAND PRO ND 
COMMAND ISSUED UNDER THESE CONDITIONS 
ON THE OPERATION OF THE DRIVE. 


8.3 SELECTION OF OPERATION VARIABLES 


A. SECTOR ADDRESS SELECTION IS RANDOM BETWEEN THE VALUES IN 
"MINSEC’ AND "MAXSEC’. TRACK ADDRESS SELECTION IS RANDOM 
BETWEEN THE VALUES IN’ *MINTRK' AND "MAXTRK'. CYLINDER ADDRESS 
SELECTION IS RANDOM BETWEEN "MINCYL' AND "MAXCYL'. IF A MINIMUM 
ADDRESS 1S GREATER THAN THE CORRESPONDING MAXIMUM ADDRESS, THE 
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1638 PROGRAM WILL SWAP ‘MAX’ AND ‘MIN’ ADDRESSES AND CONTINUE. 
1638 8. THE WORD COUNT IS RANDOMLY SELECTED BETWEEN 6 AND THE VALUE 
165 "WRDCNT’. THIS IS NECESSARY AS THE PROGRAM REQUIRES 4 LOCATIONS 
1658 IN THE DATA PORTION OF THE SECTOR TO BE ABLE TO MATCH THE DATA 
1659 TO A_PATTERN FOR DATA COMPARISON PURPOSES AND NEEDS 2 
1999 LOCATIONS IF A READ HEADER & DATA COMMAND IS ISSUED. 
1666 C. THE DATA WRITTEN IS RANDOMLY SELECTED AMONG THE 15. STANDARD 
166 PATTERNS. THE PARAMETER ‘PATTERN’ ENABLES THE RANDOM PATTERN 
re: SELECTION, IF THIS PARAMETER IS 0. 
1666 D. THE COMMANDS ARE SELECTED RANDOMLY. WRITE CHECK DATA COMMAND IS 
1667 PERFORMED ONLY IF THE PREVIOUS COMMAND WAS THE APPROPRIATE WRITE 
1668 DATA COMMAND. 
1669 
1670 
167} 8.4 DATA PATTERNS 
1673 HE PROGRAM SELECTS ONE OF THE FOLLOWING DATA PATTERNS TO WRITE 
1674 WHEN A WRITE COMMAND IS SELECTED. THE ENTIRE BUFFER IS FILLED WITH 
1675 THE SELECTED PATTERN. WHEN DATA IS READ FROM T SK, THE PROGRAM 
1676 COMPARES DATA ON A SECTOR BASIS. IF THE PARAMETER ‘PATTERN’ IS 0 THE 
1677 OGRAM WILL ATTEMPT TO MATCH THE FIRST 4 DATA WORDS OF EACH SECTOR, 
1678 TO ONE OF THE FOLLOWING PATTERNS. HOWEVER, IF THE PARAMETER ‘PATTERN’ 
1679 IS NOT 0, THE PROGRAM WILL ASSUME THAT THE DESIRED DATA PATTERN IN 
1680 LOCATION ‘PATTERN’ IS THE DATA TO LOOK FOR AND WIL TO MATCH 
1681 ANY PATTERNS. THIS ALLOWS THE OPERATOR TO SCAN THE DISK FOR ANY 
1682 SPECIFIC PATTERN. 
is 
yn +4 PAT 1 PAT 2 PAT 3 PAT4 PATS PAT6 PAT 7 *PAT 8 
1687 000001 177776 13 3 52525 155555 026455 155555 
1688 000003 177774 1 1 052525 155555 026455 133333 
1689 000007 177770 1 1 0525 155555 026455 155555 
1690 000017 177760 1 1 az 3. 155555 131 133338 
1691 0037 177740 177777 1 1 125252 155555 13! 1 33 
1692 7? (177700 «(177777 «1 1 125252 155555 151 13333 
1693 177 177608 1 1 8 155555 64 15555 
1694 pia ytd 1774 1 1 052525 133333 6455 1333 
1695 7? 177 1 j 3 133 5 i 155 
is Sree I Oecee HSN ese TEED GRIER 
igs ST WO diece Teel dese Tesh Gat Hee 
is Sr Hiss UW Gees HE ine 18 
1706 177777 000 1 1 1 ; 338 155555 159333 133 33 
1S PAT 9 PAT 10 PAT 11 PAT 12 PAT 13° PAT 14 PAT 15 
ins sural irre izes Garry RES Sn 
a See I tees I Ae ee 

P JUUUUU 
1710 020 177787 173666. 195077 188885 177797 0000 
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NANNING 
Fee 
BOOMS 


ee ee ee ce ee ed ceed ee ed ed ed eed eed ed ed 
“ 
= 
wi 


S55 


ee en bbe i le > > > > be 
PAPA UII UT & SS 


ee ee ce ce cee ce ee ee cee eee ee ee ceed ed ed ed eed ed eed eed eed ed 


SN 
oo 
wm 


— 
Es 
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9.1 


9.2 


9.3 


00060 177737 155555 175777 7 177777 

oOOtG8 177677 174666 176777 158383 177777 0000 
90200 177377 155555. 177377 066667 177777 

00400 177377 172666 177307 | 3 177777 

001000 176777 13 177677 Oge66? 127777 

002000 175777 17266 177737 153833 120777 

904000 173777 155595 177757 06666? 177777 

910000 167777 172666 177767 153883 17777 

920000 157777 155953 177773 066667 177777 

049000 157777 172666 127775 133833 177777 900000 
100000 077777 155585 177776 066667 177777 000000 


’ & WORST CASE PATTERN 


RH/RM DRIVER 





THIS DOCUMENT IS THE USER'S GUIDE FOR THE RH/RM DRIVER. 
TO INITIALIZE THE DRIVER: 
JSR PC.RMINIT 
RETURN 
UPON RETURN YOU MUST EXAMINE THE ‘DRVSTA’’ TABLE TO DETERMINE 
THE DRIVES THAT ARE ONLINE FOR TESTING. THE ‘DRVSTA’ TABLE IS 


T 
EIGHT BYTES: ONE BYTE PER DRIVE. THE STATE OF EACH DRIVE WILL 
BE INDICATED AS FOLLOWS: 


DRVSTA DRIVE STATE 
>0 ONL INE 
=0 OFFLINE, DRIVE 


IS NOT . 
NONEXISTENT DRIVE 
<0 UNSAFE 


THE DRIVE TYPE IS DEFINED IN AN 8 BYTE LONG TABLE TAGGED ‘DRVTYP’. 


THE TABLE CONTAINS ONE BYTE FOR EACH DRIVE AND IS INDEXED BY THE 
DRIVE NUMBER. ENTRIES ARE ENCODED AS FOLLOWS: 


DRVTYP CONDITION 

0 XISTENT DRIVE 
: 2s 

-1 NOT AN RM80 


THE *RMINIT® ROUTINE WILL DO A READIN PRESET AND WILL SET FMT16. 


AFTER THE DRIVER HAS BEEN INITIALIZED, IT IS CALLED USING THE 
FOLLOWING SEQUENCE. 


CALL: 
JSR RO,RM8O sMAKE THE CALL 
PNTDPB ADDRESS OF DPB* 









J 
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1768 RETURN1 ;RETURN IF QUEUE IS FULL 

1769 RETURN2 SRETURN IF REQUEST IS IN 

1770 SQUEUE OR THERE IS AN 

W771 TERROR CONDITION 

27s *DPB (DATA PARAMETER BLOCK) 

1775 PNTDPB: .BYTE 0 7(0) DRIVE NUMBER 

1776 “BYTE 0 7(1) OFFSET VALUE OR FMT16, ECT, AND HCI 
1777 “BYTE 0 3 (8) COMMAND 

1778 “BYTE :(3) PSEL AND A17 AND A16 

1779 “WORD 0 7(4) WORD COUNT (MUST BE NEG.) 
1780 “WORD (6) BUFFER ADDRESS OR 

1781 [REGISTER TABLE POINTER 

1782 .BYTE 0 (10) SECTOR ADDRESS OR 

1783 [FIRST REG. INDEX 

1784 .BYTE 0 2(11) TRACK ADDRESS OR 

1785 SLAST REG. INDEX 

1786 .WORD 0 +(12) CYLINDER ADDRESS 

1787 "wORD 0 (14) ERROR TABLE POINTER 
1788 [POINTS TO THE FIRST OF TWENTY 
1789 SLOCATIONS OF WHERE THE DRIVER 
1790 t1S TO STORE THE 

1791 [REGISTERS ON IF LEFT 
1792 [ZERO REGISTERS ARE NOT SAVED. 
1793 «WORD 0 (16) STATUS/ERROR INDICATOR 
1794 *BIT1S=1=ERROR OCCURRED 

1795 :B1T07=1=DONE 

1796 7B1T14-B1T09 AND B1T06-B1T03 
1797 SINDICATE TYPE OF ERROR 

1799 9.4 THE DRIVER PROVIDES A SOFTWARE TIMEOUT CAPABILITY. 

1800 TO UTILIZE THIS CAPABILITY YOU MUST SUPPLY THE ‘RM TIMER’ ROUTINE 
180) WITH THE ELAPSED TIME IN THE FOLLOWING MANNER: 

1803 MOV #16.,-(SP) 316. MILLISECONDS BETWEEN 
1805 JSR PC.RMTMR [CALL THE TIMER ROUTINE 

1807 IT SHOULD BE NOTED THAT YOU MUST PROVIDE THE CODE TO DRIVE THE 
1808 CLOCK AND THE ELAPSED TIME MUST BE IN MILLISECONDS. 

1810 

1811 9.4.1 EXAMPLE = WRITE 1000. WORDS 

131 1$: JSR RO, RM8O :CALL THE DRIVER 

1814 WRTDPB : DR 

1815 BR 1$ SWAIT FOR QUEUE IF FULL 

1816 2s: Ist WRTDPB+16 *WAIT FOR COMMAND TO COMPLETE 
1818 BMI ERROR1 ZERROR OCCURRED 

1820 - 

1821 2 

1866 WRTDPB: .BYTE DRIVE #5 

1824 * "BYTE 3 : 





SEQ 0035 


C2 
us 


Kk 3 
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1825 -BYTE 161 :WRITE COMMAND 
1826 ‘BYTE ; 
182 ‘ =1000. SWORD COUNT 
1828 ; WRTBUF SBUFFER ADDRESS 
1829 “BYTE SECTOR 
1830 -BYT 3 K 
1831 “WORD 400 = CYLINDER 
\S3s eWORD ERRTBS sERROR TABLE 
1833 “WORD 0 *STATUS/ERROR INDICATOR 
TH ALTERNATE DPB SETUP 
1837 WRTDPB: .WORD 5 :THIS SETUP ACHIEVED 
1838 eWORD WRITE sEVERYTHING THE 
1839 “WORD =1000. SABOVE TABLE DID, BUT 
1840 WORD WRTBUF :IN A CLEANER FORMAT 
1841 “BYTE 3,5 
184 : 460, ERRTBS,0 
iene 9.5 RH/RM REGISTERS 
1846 MNEMONIC INDEX 
+9, Ears SF GS es A ee ek ee ea 
1848 RMCS1 0 
1849 RMWC 2 
1850 RMBA 4 
1851 RMDA 6 
1852 RMCS2 10 
1853 RMDS 12 
1854 RMER1 14 
1855 RMAS 16 
1856 RMLA 20 
1857 RMDB 22 
1858 RMMR1 24 
1859 RMDT 26 
1860 RMSN 0 
1861 RMOF 32 | 
1862 RMDC 34 
1863 RMHR 36 
1864 RMMR2 40 
1865 RMER2 42 
1866 RMEC1 44 
1867 RMEC2 46 
1868 *RMBA 20 
1869 *RMCS 
er * RH70 CONTROLLER REGISTERS 
1878 9.6 COMMANDS PERFORMED BY THE DRIVER 
1875 COMMAND CODE COMMAND TYPE 
1877 
1878 SEEK 105 p 
1879 RECALIRATE 107 p 
1880 DRIVE CLEAR 111 N 
1881 RELEASE 113 N 








L 3 
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882 OFFSET 115 P 
885 RETURN TO CENTER 117 P 
884 READIN PRESET 121 N 
885 PACK ACKNOWLEDGE \¢3 N 
886 SEARCH 131 P 
887 GET REGISTER(S) 141 S 
888 SET FORMAT 143 Ss 
889 SELECT DRIVE 145 S 
890 WRITE CHECK DATA 151 D 
891 WRITE CHK HEADER & DATA 153 D 
892 WRITE DATA 161 Dd 
893 WRITE HEADER & DATA 163 D 
894 AD D 171 D 
oo? READ HEADER & DATA 173 D 

97 


HOUSEKEEPING 

POSITIONING 

DATA_TRANSFER 

SPECIAL PROVIDED BY THE DRIVER 
9.7 DPB STATUS/ERROR INDICATOR WORD 


THIS INDICATOR WILL INFORM THE USER OF THE RESULTS OF THE REQUEST. 
yg ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO 


es ek ek ek ek a a et ed ee ee a ed ad ad dd od dd 
“nove 
wun 


SESseEaTsess 


BIT NO. MEANING IF ON A ‘"* 
At Ee Sie ee ers Bea eer ee a 
1911 
1912 15 ERROR OCCURRED 
1913 DONE (BIT07=0); BITS 14-9 SPECIFIES TYPE 
1914 DONE (BITO7=1); BITS 6-3 SPECIFIES TYPE 
1916 14(1) USER MADE A REQUEST FOR A FUNCTION TO BE 
1917 PERFORMED ON AN OFFLINE OR UNSAFE DRIVE 
1919 9(3) (4) SOFTWARE TIMEOUT OCCURRED ON THIS DRIVE 
i , - 
1988 6(2) ERROR OCCURRED DURING AN I/O OPERATION 
1925 5(2) ERROR OCCURRED DURING AN OPERATION 
1926 OTHER THAN 1/0. 
1928 4(2) CORRECTABLE UNSAFE CONDITION OCCURRED 
1930 2 PORT REQUEST TIMEOUT. THE DRIVER REQUESTED 
1931 THE DRIVE BUT THE OPPOSITE PORT 
1938 RELEASE THE DRIVE WITHIN 15. SECONDS. 
1934 “ 1 NON-EXISTENT DRIVE REQUESTED. USER MADE 
1938 A REQUEST FOR A NON-EXISTENT DRIVE. 
1938 NOTES FOR ABOVE 


r m 3 
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1940 (1) = REQUEST WASN'T PUT IN QUEUE. (RH/RM 
1303 REGISTERS WERE NOT SAVED) 

1923 (2) = REQUEST QUEUE HAS BEEN EMPTIED. THE DRIVER 
1944 ISSUED A ‘DRIVE CLEAR’ TO THE DR e° 
1945 NOTE: ALL _RH/RM REGISTERS ARE SAVED 
1398 AS PER DPB+14 BEFORE THE ‘DRIVE CLEAR"’. 
1948 (3) = REQUEST QUEUE HAS BEEN EMPTIED. THE 
1949 DRIVER ISSUED A MASSBUS INIT. ALL 

1950 RH/RM REGISTERS FOR THE DRIVE WERE 
132) SAVED AS PER DPB+14 BEFORE THE INIT. 
1953 (4) = A_‘'RECALIBRATE*’ SHOULD BE ISSUED 

1328 BEF ORE ANY OTHER COMMAND. 

1928 9.8 ERROR CALLS MADE BY THE DRIVER. 

1238 THERE ARE A FEW ERRORS THAT CAN OCCUR THAT CAN NOT BE INDICATED IN A DPB. 
1960 oe THIS TYPE OF ERROR IS DETECTED BY THE DRIVER i WILL MAKE 
1961 AN ERROR CALL OF THE FORM ‘ERROR N’’, WHERE ‘N'’ IS THE ERROR 
196 NUMBER AND THE ERROR WILL BE AN EMT’ INSTRUCTION. 

1964 

1965 N TYPE DATA AVAILABLE 

; aoe = eeee Sea eeRewts ae eaeoawrem 

1968 1 RH70_ INTERRUPT *R4= RMCS1°S ADDRESS 

1390) OCCURRED (RHAS=0) 

1971 2 UNEXPECTED ATTENTION Rt= DRIVE NUMBER 

1972 OCCURRED R3= ATA 

1973 *R4= RMCS1°S ADDRESS 

1974 R5=_(RMAS) 

1975 RMERRS = 

1976 RMERRS+2=RMER1 

1977 RMERRS+4=RMER2 

1978 RMERRS+6=RMMR2 

1979 

1980 NOT USED 

1981 

1386 4 NOT USED 

1 ADDRESS PLUG CHANGE Ri= DRIVE NUMBER 


BIT SET ("OPE* ERROR) R3= ATA BIT 
*R4= RMCS1'S ADDRESS 
R5=_(RMAS) 
RMERRS _=RMDS 
RMERRS+2=RMER1 
RMERRS+4=RMER2 
* THIS IS THE ACTUAL UNIBUS ADDRESS (176700) 


SESSISESHE 


N 3 
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54 z*LAST REVISION 23-DEC-81 
37 TITLE CZRNAAO RM80 PERF EXER 


58 


KARANASSOIFALARGISS 


*COPYRIGHT (C) 1982 
DIGITAL EQUIPMENT CORPORATION 
; *COLORADO SPGS., CO. 80919 
; PROGRAM BY MIKE LEAVITT 


eTHIS PROGRAM WAS ASSEMBLED USING THE 7 MAINDEC SYSMAC 
3 #PACKAGE (MAINDEC=11=DZQAC-C5), 18-MAR 


*SBrTL OPERATIONAL SWITCH SETTINGS 


SWITCH USE 
15 HALT ON ERROR 
13 INHIBIT ERROR TYPEOUTS 
1 BELL _ON ERROR 


0 
8 INHIBIT END OF PASS MESSAGES 
7 Baene'e ALL_DATA COMPARE ERRORS 
6 DON'T CHANGE PARAMETERS (LOOP ON PRESENT VALUES) 
5 A. PARTIAL REGISTER DISPLAY IF ER 

B. NO ECC CORRECTION RESULTS DISPLAYED IF ERROR 
4 or ee FOR MAXIMUM ~~ COUNTS 
3 


0 NO OP DRI F TEST 
I SPLAY ERROR SECTOR IF DEK *DTE*, OR "WCF* ERROR 
ISPLAY ze° TOR IF "DCK* ERR UNCORRECTABLE AFTER 
A COMPARE ERROR & SWO7 SET, DISPLAY 
REMA RINDER OF BUFFER 

2 A. DO NOT TYPE DRIVE STATUS AT PROGRAM STAR 
po NOT TYPE PERFORMANCE REPORT ye SPECIFIED TIME 

PROMPT ‘FE CYLINDER’ MESSAGE IN M gare RUN MODE 
1 INHIBIT ay COMPARE AFTER READ COMMAND « 
0 READ Y MODE 
-SBTTL BASIC DEFINITIONS 

z*INITIAL ADDRESS OF THE STACK POINTER *** 1100 ee 
STACK = 1100 


ERROR M 33;BASIC DEFINITION OF ERROR CALL 
SCOPE I0T 2sBASIC DEFINITION OF SCOPE CALL 


3 *MI ELL AS DEFINITIONS 


SSeS ERRRRHRE NEHER H HH 


AT 3;CODE FOR WOR CONTA TAB 
UF = 12 3sCODE FOR LINE FEED 
CR = } +3 Fen pre ft RETURN 
CRLF = 200 3CODE FOR CARRIAGE RETURN-LINE FEED 
Bt ps = 177776 1 EPROCESSOR STATUS WORD 
STKLMT = 177774 s3STACK LIMIT REGISTER 
PIRQ = 17777 sPROGRAM INTERRUPT REQUEST REGISTER 
DSWR = 17757 HARDWARE SWITCH REGISTER 
DDISP) = 17757 2 sHARDWARE DISPLAY REGISTER 


3*GENERAL PURPOSE REGISTER DEFINITIONS 


C2! 
TAl 
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BASIC DEFINITIONS 


Zz 
wm 
nhonnnnnnne 


;*PRIORITY 


vu 

2 

ive) 
nannnun °° 


ARF VSS VLD WUinM—o LO 


” 

<= 

LJ 

Ve) 
HnHennnnnnnnnnnnnns 


Te 


a nt ad 


T 


0 3 :GENERAL REGISTER 
1 : s GENERAL REGISTER 
2 : GENERAL REGISTER 
3 3: :GENERAL REGISTER 
4 s GENERAL REGISTER 
5 ::GENERAL REGISTER 
6 7:GENERAL REGISTER 
7 : GENERAL REGISTER 
6 3s:STACK POINTER 
7 3::PROGRAM COUNTER 
LEVEL DEFINITIONS 

s;PRIORITY LEVEL 0 
0 ssPRIORI TY LEVEL 1 
00 ::PRIORITY LEVEL § 
40 Et pa LEV EL 
00 s:PRIORITY LEV et 4 
40 :zPRIORITY LEVEL 5 
09 : PRIORITY LEVEL 6 
40 ‘PRIORITY LEVEL 7 
EGISTER’’ SWITCH DEFINITIONS 
00000 
0000 
0000 
0000 
000 
000 
000 
00 
00 
00 
0 
0 
0 
DEFINITIONS (BIT00 TO BIT15) 
00000 
0000 
000 
000 
0 
0 
00u 


SEQ 0040 


+m 


¢ 4 
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BASIC DEFINITIONS 
000400 BIT08 = 400 
000200 BIT07 = 200 
000100 BIT06 = 100 
000040 BIT05 = 40 
000020 BIT04 = 20 
000010 BIT03 = 10 
000004 BIT0O2 =4 
000002 BIT01 =2 
000001 BIT0O =1 
001000 BIT9=B1T09 
000400 B1T8=B1T08 
000200 B1T7=B1T07 
000100 BIT6=B1T06 
000040 BIT5=B1T05 
000020 B1T4=BI1T04 
000010 BIT3=B1T03 
000004 BIT2=BIT02 
000002 BIT1=B1T01 
000001 BIT0=B1T00 
s*BASIC ‘CPU TRAP VECTOR ADDRESSES 
ERRVEC = 4 TIME OUT AND OTHER ERRORS 
000010 ESVEC = 10 : RESERVED AND ILLEGAL INSTRUC SIONS 
000014 TBITVEC = 14 :'T' BIT 
000014 RTVEC = 146 SI TRA CE TRAP 
000014 TVEC = 14 : :BREAKPOINT TRAP (BPT) 
000020 IOTVEC = 20 i INPUT /OUTPUT TRAP (10T) **SCOPE** 
000024 VEC = 26 : POWER AIL 
900030 EMTVEC = 30 :FMULATOR. TRAP (EMT) **ERROR** 
000060 TKVEC = 60 titty KEYBOARD VECTOR 
000064 TPVEC = 64 +: TTY PRINTER VECTOR 
- 000240 PIRQVEC = 240 ?:PROGRAM INTERRUPT REQUEST VECTOR 
78 .SBTTL RH CONTROLLER REGISTERS 
80 ZCONTROL AND STATUS REGISTER 1 (RMCS1) 
82 000100 IE = 100 ;INTERRUPT ENABLE (BIT #6) 
83 000200 RDY = 200 SREADY (BIT #7) 
84 000400 Al = 400 *HIGH ORDER BUS ADDRESS BIT (BIT #8) 
gs 001000 Al = 1000 ‘HIGH ORDER BUS ADDRESS BIT (BIT #9) 
86 002000 PSEL = 000 SPORT SELECT (BIT #10) 
87 920000 MCPE = 9000 *MASSBUSS PARITY ERROR (BIT #13) 
88 04 TRE = 40000 * TRANSFER ERROR (BIT #14) 
89 38 = 100000 ‘SPECIAL CONDITION (BIT #15) 
91 :WORD COUNT REGISTER (RMWC) 
92 : (EACH BIT IS CALLED BY BIT NUMBER) 
94 :BUS ADDRESS REGISTER (RMBA) 
95 : (EACH BIT IS CALLED BY BIT NUMBER) 
44 sCONTROL AND STATUS REGISTER 2 (RMCS2) 
99 000001 US1 =1 :UNIT SELECT (BIT #0) 
100 000002 us2 =2 SUNIT SELECT (BIT #1) 
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200016 
00004 


_ 
oO 


wr 


SSSFRS 
segeeseess 
Scciseeccee 


NUWWG POPOPOPOPONONONID) SS 2 oo 


segessesss 
sessseec 


part 
ofnN=— 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


AAMMAMANERRRSRRRRRW 


NOUEWN—O 


ee 





US4 =4 

BAI = 10 

PAT = 20 2MAS 

CLR = 40 3 CLEAR 

IR = 100 INPU 

OR = 200 OU 

MDPE = 400 sMASS 

MXF = 1000 sMISSED T 
PGE = 2000 ;PRO 

NEM = 4000 ;NON E 
NED = 10 ; 

UPE = 20000 UNI 

WCE = 40000 ; 

DLT = 100000 sDATA LATE (BIT #15) 


3DATA BUFFER REGISTER (RMDB) 
7 (EACH BIT IS CALLED BY BIT NUMBER) 


-SBTTL RM REGISTERS 
:CONTROL AND STATUS 1 REGISTER. (#00) 


GO = 1 

FO =2 sFUNCTI 

FI = 4 : 

F = 10 FUNCTION CODE BIT #3 
F = 20 sFUNCTION CODE BIT #4 
F4 = 40 ;FUNCTI 
DVA = 4000 DEVI 
sDRIVE STATUS REGISTER (RMDS1) (401) 
OFFON =1 

VV = 100 VOLUME V. 
DRY = 200 

DPR = 400 

PGM = 18 : 

LBT = 200 zLAST BLOC 
WRL = 4000 sWRITE LOCK 
MOL = 10000 sMEDIUM 
PIP = 20000 sPOSITI 
ERR = 40000 s COMPOSITE 
ATA = 100000 sATTENTION 
ERROR REGISTER #01 (RMER1) (#02) 

ILF =1 s ILLEGAL 
ILR =2 s ILLEGAL 
RMR = 4 REGIS 

PAR = 18 sPARIT 
FER =2 FORMA 

WCF = 40 : 

ECH = 190 sEcc 

HCE =2 ;HEAD 

HCRC = 400 sHEAD 

AOE = 1980 ZADDR 

IAE = 2000 : INVAL 


on 


sUNIT SELECT (BIT #2) 
3BUS ADDRESS 
; PARIT 


[=] 
i=) 
l=] 
ee8 53 s 
Mm 
=< 
_ 
me 1s) 
saan 
mm 
Ct + 
= 
o 
xz 
bene 
< 
m 
~~ 
@ 
oe 
~ 
Se 
——s 


BU TY 
WRITE CHECK ERROR (BIT 


:G0 BIT (BIT #0) 
“F £ BIT 


CODE BIT #5 
ILABLE (BIT #11) 


sOFFSET ON (BIT #0) 


3 D (BIT 
ZDRIVE READY (BIT #7) 
sDRIVE PRESENT (BIT #8) 
; PROGRAMABL 


BI 
K fa eA ae (BIT #10) 


(B 2) 
oN OPERATION 47 PROCESS (BIT #13) 
ACTIVE (BIT #15) 


E 4 
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RM REGISTERS 
158 904000 WLE =: 00 SWRITE LOCK ERROR (BIT #11) 
189 19000 pie = 10000 ‘DRIVE TIMING ERROR (BIT #12) 
160 02 OPI = 20000 ‘OPERATION INCOMPLETE (BIT #13) 
161 040000 wns = 40000 ¢DRIVE UNSAFE (BIT #14) 
162 100000 DtK ~—s- =: 100000 SDATA CHECK ERROR (BIT 15) 
164 SMAINTAINABILITY REGISTER (RMMR1) (#03) 
166 
167 SATTENTION SUMMARY PSEUDO-REGISTER (RMAS) (#04) 
169 000001 ATO = 1 SDEVICE 0 (BIT #0) 
170 000002 AT] == 2 ‘DEVICE 1 (BIT #1) 
171 000004 AT a4 SDEVICE @ (BIT #2) 
172 000010 AT = 10 CDEVICE $ (BIT #3) 
178 000020 ATS. = 20 SDEVICE & (BIT #4) 
17% 000040 ATS. = 40 SDEVICE § (BIT #5) 
178 000100 AT = 100 SDEVICE § (BIT 86) 
178 000200 AT = 200 {DEVICE 7 (BIT #7) 
178 SDESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (#05) 
180 
181 SDRIVE TYPE REGISTER (RMDT) (#06) 
183 000001 pT00 = 1 SDRIVE TYPE NUMBER BIT 1 
18% 000002 DTOl. «= 2 ‘DRIVE TYPE NUMBER BIT 2 
185 000004 DTO2 = G {DRIVE TYPE NUMBER BIT 3 
186 000010 D103. —s = 10 ‘DRIVE TYPE NUMBER BIT & 
187 000020 D104 = 20 2DRIVE TYPE NUMBER BIT 5 
188 £0 TOS == 40 ‘DRIVE TYPE NUMBER BIT 6 
189 000100 DT06 ~—s =: 100 ‘DRIVE TYPE NUMBER BIT 7 
190 200 DTO? ~—s = 200 {DRIVE TYPE NUMBER BIT 8 
191 000400 DTOB. == 400 ‘DRIVE TYPE NUMBER BIT 9 
192 004000 DRO = «4000 ‘DRIVE REQUEST REQUIRED (BIT #11) 
198 020000 MOH = 20000 tMOVING HEAD (BIT #13) 
19% 040000 TAP ss = 40000 STAPE DRIVE (BIT #14) 
195 100000 NSA = 100000 ¢NOT SECTOR ADDRESSED (BIT #15) 
197 SLOOK-AHEAD REGISTER (RMLA) (#07) 
199 000100 scl = 100 SSECTOR COUNT FIELD 0 (BIT #6) 
200 000200 St2, = 200 eSECTOR COUNT FIELD 1 (BIT #7) 
501 000400 $C04 = 40 SECTOR COUNT FIELD @ (BIT #8) 
02 001000 $¢10 = 1000 tSECTOR COUNT FIELD $ (BIT #9) 
002000 $€20 = 2000 SECTOR COUNT FIELD 4 (BIT #10) 
§ sSERIAL NUMBER REGISTER (RMSN) (#10) 
206 ?{EACH IS CALLED BY BIT NUMBER) 
08 SOFFSET REGISTER (RMOF) (#11) 
ati 000001 OFFDIR = 1 SOFFSET DIRECTION 
1 901000 SSEI. = 1 ‘SkIP SECTOR ERROR INHIBIT (BIT #9) 
ig iva oa £09 SEE A OER OTE C TION CADE INNTBIT GIT #11) 
= e 
1% 010000 FMT16 = 10000 ERR ont (BLT #12) 


CZRNAAO RM80 PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 4-5 
RM REGISTERS 





15 
a6 DESIRED CYLINDER ADDRESS (RMDC) tee 
sf (EACH BIT IS CALLED BY BIT NUMBER) 
219 CURRENT CYLINDER ADDRESS (RMCC) (#13) 
$f : (REGISTER CURRENTLY NOT USED) 
$56 :RM ERROR REGISTER #02 (RMERZ2) (#15) 
224 900019 DPE = 10 DATA PARITY ERROR (BIT #3) 
225 00004 SSE = 40 ‘SKIP SECTOR ERROR (IT #5) 
$58 000200 DvC = $3 DEVICE CHEC 
$ 002600 LBC = 2000 LOSS OF BIT CLOCK 
28 004000 LSC = 4000 LOSS OF SYSTEM CLOCK (BIT #11) 
229 010000 IVC = 10000 :INVLAID C T #12 
230 020000 OPE = 20000 OPERATOR PLUG ERROR (BIT #13) 
231 040000 SKI = 40000 ‘SEEK INCOMPLETE (BIT #14) 
$35 100000 BSE = 100000 *BAD SECTOR ERROR (BIT #15) 
234 ECC POSITION REGISTER (RMEC1) (416) 
$32 : (EACH BIT IS CALLED BY BIT NUMBER) 
237 ECC PATTERN REGISTER (RMEC2) (#17) 
$38 3: (EACH BIT IS CALLED BY BIT NUMBER) 
ye ~SBTTL RM DRIVER COMMANDS 
242 000101 NOP = 101 :NO OPERATION 
243 000105 SEEK = 105 K 
ste 000107 ECAL = 107 ?RECALIBRAT E 
45 000111 DRVCLR = 111 [DRIVE CLEAR 
246 000113 ELSE = 113 SRELEASE 
250 000117 TC = 117 *RETURN TO CENTER LINE 
251 000121 READIN = 121 3READ IN PRESET 
25 000125 CK = 123 PACK ACKNOWLEDGE 
25 000131 SEARCH = 131 ARCH 
254 000141 GETREG = 141 GET REGISTERS 
255 000143 SETFMT = 143 T FORMAT (& ECI OR HCI) 
256 000145 SELDRV = 145 :SELECT DRIVE 
257 000151 WCKD = 151 WRITE CHECK DAT. 
258 000153 WCKHD = 153 WRITE CHECK OEADER & DATA 
4 iedhy WRIDAT = 161 
163 WRTHD = 163 tURITE HEADER & DATA 
261 000171 RDDAT = 171 sREAD DATA 
ss 000173 RDHD = 173 READ HEADER & DATA 
264 176700 ABASE = 176700 
265 000254 AVECT1 = 254 


om 
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TRAP CATCHER 


1 -SBTTL TRAP CATCHER 


=0 
Z*ALL UNUSED iver hyn 4 = 776 CONTAIN A *'.#2,HALT’ 
7*SEQUENCE TO CATCH I ure TRAPS AND INTERRUP 
S#LOCATION 0 CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 


000174 DISPREG: .WORD 8 s3SOFTWARE DISPLAY REGISTER 
SWREG:  .WORD 3zSOFTWARE SWITCH REGISTER 


-SBTTL STARTING ADDRESS(ES) 


2 000200 000137 003542 JMP @ASTARTI 32 JUMP TO STARTING ADDRESS OF PROGRAM 
? 000204 000137 003532 JMP @ASTART ;CHANGE THE RH ADDRESS 
5 -SBTTL ACT11 HOOKS 


© RERAAEARAERAEAERAAAERARAEERERERERARARARRRERAEREEARAREREERAREEEREERERE 


SHOOKS REQUIRED BY ACT11 


900210 ssypcs. SAVE PC 
000046 031739 SENDAD 21)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 040000 “WORD 40000 332)SET LOC.52 TO 40000 

; 000210 * =$SVPC 32° RESTORE PC 

7 001100 .=1100 

8 -SBTTL APT PARAMETER BLOCK 


FRARAAAAAAAARAAAARAAAAAAAAARARAAAEAAAREREARERAEAREERAERERREREERE 


:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


{RAAAAARAAAAARARERARARERAEAEAAAAAAAAAARERAARERARARERRRERRRRERREEE 


001100 ~SX=. = 5 ;SAVE ened LOCATION 
000024 2=24 2sSET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 APT START UP 
.=44 3IPOINT 4 a ayt sg seers PNTR. 
000044 001100 SAPTHDR ;;POINT T T HEADER 
001100 =.$X ;:RESET LOCATION COUNTER 


aeenearerenecencacsccececqegqnecneresqgeneeeeereeeqqqeeenetetes 
:SETUP APT 7 taal BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


1100 THD: 
oO 110o 000000 SHIBTS: .WORD :;TWO HIGH BITS OF 18 BIT MAI ADDR. 
001102 001 06 : .WORD Sas L  :ZADDRESS OF APT MAILBOX (BITS 0-15) 
001104 14 STSTM: .WORD 63 . ~—soE SRUN TIM OF LONGEST TEST 
001106 014234 SPASTM: .WORD -  33RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
001110 014234 SUNITM: .WORD ZADD TONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
001112 000032 “WORD © SETEND= -ShiIL/2 ::LENGTH MAILBOX-ETABLE (WORDS) 
9 001114 TAB. XY=. SCMTAGSTARING ADDRESS 





SEQ 0045 
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COMMON T 


0 ~SBTTL COMMON TAGS 


FRRAAAAAAAAAAAAAAAAAEAAATERERAAAEEERAEEAERAEEERARERERERARARERERES 


TATHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
7*USED IN THE PROGRAM. 


001114 2 TAB. XY 
001118 SCMTAG: ae zzSTART OF COMMON TAGS 
agttie "889 srs: “Brie :2COMTAINS THE TEST MBER 
0071 900000 SICNT: .WORD «CONTAINS SUBTEST ITERATION COUNT 
0011 PADR: .WORD 3 CONTAINS SCOPE LOOP ADDR ss 
001124 000000 PERR: .WORD [CONTAINS SCOPE RETURN FOR ERRORS 
001126 000000 SERTTL: .WORD 0 *SCONTAINS TOTAL ERRORS DETECTED 
sie ee sia: ae HETANS AI" Saunt" 
001132 000000 SERRPC: .WORD 7: CON PC T ERROR INSTRUCTION 
001134 000000 SGDADR: .WORD Z:CONTAINS ADDRESS OF 'GO0D' 
001136 000000 ADR: .WORD TAINS ADDRESS OF "BAD' DATA 
pories itt He “WORD 3 23CONT TAINS "BAD’ DATA 
001144 000000 ‘ - WORD 0 : :RESERVED=-NOT TO BE USED 
001150 00000 T08: :BYTE 6 yzAUTOMATIC MODE INDICATOR 
001151 000908 SINTAG: -BYTE 0 INTERRUPT MODE INDICATOR 
001154 177570 s “WORD DSWR s:ADDRESS oF switch REGISTER 
001156 177570 DISPLAY: .WORD DDISP S:ADDRESS OF DISPLAY REGISTER 
Be As eae TN Age Be 
001164 177564 STPS: 177564 zeTTV PRINTER STATUS REG. ADDRESS 
sae 7a Be ee atin Mosaatics AWE 
SEES tbe SriUtS: .BYTE :, SECOMTAING OF CILLER Ci COR AC INE FEEDS 
001178 000 STPr 6 -BYTE 23 TERA INAL AVAL NtABLE™ ERG A at i 7ecbevEs) 
001176 neo 377 377 sais: ASCIZ <2 <207><377><377> 2 3CODE FOR BELL 
2 a cae 3 eS 
cok RE Ss, ORO En BA, ,, ET AEE 
*SBTTL APT MAILBOX-ETABLE 
FERRARA AAAAAAAAAAAAAAAAAAAAAEAAAAAAARARAARERRREREREEREREREREREEEE 
001 SMAIL z:APT MAILBOX 
001 000000 GTY: .WORD AMSGTY i SRESSAGE TYPE CODE 
001210 002000 FATAL: .WORD AFATAL ::FATAL ERROR NUMBER 
Bb151% 900000 SpaScn’ “WORD APASS™ SITES! COUNT” 
00121 SDEVCT: :WORD ADEVCT ::DEVICE COUNT 
001 : .WORD AUNIT 31/0 UNIT NUMBER 
1222 SMSGAD: {WORD AMSGAD °:MESSAGE ADDRESS 
001 4 $MSGLG: :WORD  AMSGLG : RESSAGE LENGTH 
1226 SETABLE: ?:APT ENVIRONMENT TABLE 


Seo 0OM6 
| 


CZRNAAO 
APT MAILBOX~ETABL 
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901 $ SENV: .BYTE AENV 
1 SENVM: .BYTE 
001 SSWREG: .WORD ASWREG 
001232 000000 SUSWR: .WORD WR 
001 000000 SCPUOP: .WORD 

*® 

te 

ze 

3* 

3* 

*® 
001236 000 $MAMS1: .BYTE AMAMS1 
001237 000 SMTYP1: .BYTE AMTYP1 

*® 

te 

3* 

°*® 
001240 000000 $mapRt .WORD AMADR1 
00124 000 Snans2 YTE AMAMS 
00124 000 SMTYP2: .BYTE AMTYP 
001244 000000 Re . WORD 
001246 000 BYTE 
001247 000 SMTYP3: .BYTE AMTYP 
001250 000000 SMADR3: .WORD 
00125¢ 000 SMAMS4: .BYTE 
00125 000 SMTYP4: .BYTE AMTYP4 
001254 000000 RG: 
001256 000254 S$VECT1: .WORD AVECT1 
001260 000000 SVECT2: .WORD AVECT2 
001262 176700 SE: .WORD 
001264 000000 SDEVM: .WORD ADEVM 
001266 000000 $CDW1: .WORD ACDW!1 
001270 000000 $CDW2: .WORD ACDW2 
001272 SETEND 


$y te baat a BYTE 
ssENVIRONMENT MODE BITS 
33APT it REGISTER 


117068 =01.11/ -11705=02. 2.11/20=03, 11740204, 11/45205 
Q= 
BIT 1QSREAL TIME tr i 
BIT 9=FLOATING POINT PROCESSOR 
BIT B=MEMORY MANAGEMENT 
3;HIGH ADDRESS,M.S. BYTE 
:MEM. TYPE BLKAi 
MEM.TYPE BYTE == (HIGH BYTE) 
300 NSEC BiPOLAR=002 
= 
300 NSEE AOSSDOS 
ssHIGH ADDRESS BL 


Ka 
MEM.LAST ADDR. = BYTES, THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 
3 HIGH ADDRESS M.S. BYTE 


a3 BL 
M.LAST ADDRESS BLKA2 
eH HIGH ADDRESS,M.S.BYTE 


‘coe YPE ,BL 
M.LAST ADDRESS ,BLKA&3 
oT a Fa BYTE 


: MEM. TYPE BL 
:SMEM.: LAST ADDRESS ,BLKA4 
Ss INTERRUPT VECTOR#1,BUS PRIORITY#1 
:: INTERRUPT VECTOR#2BUS PRIORITY#2 
3 BASE ADDRESS OF EQUIPMENT UNDER TEST 


3DEVICE 
e3 TECONTROLLER DESCRIPTION WORDA1 
3: CONTROLLER DESCRIPTION WORD#2 





C2 
EF 
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USER DEFINED TAGS 









-SBTTL USER DEFINED TAGS 


001272 176700 : .WORD 176700 ;FIRST ADDRESS OF RH/RM REGISTERS 

001274 234 SRMVEC: .WORD é VECTOR AD 

001276 fe 40 SLKCSR: :WORD 172540 [ADDR OF KWi1-P STATUS REGISTER 

001 17254 SLKCSB: .WORD 172542 ADDR OF KW11-P COUNTER BUFFER 

001302 1 SLPVEC: .WORD 1 SADDR OF KW11-P VECTOR 

001304 177546 $LKS:  .WORD 177546 ADDR OF KWIl-L STATUS REGISTER 

001 306 900100 SLLVEC: .WORD 100 SADDR OF KW1l=L VECTOR 

00131 177777 PCLOCK: .WORD <1 :'0° IF KWwil-P IS ON SYSTEM 

001312 177777 CLKFLG: .WORD <1 50° IF A CLOCK IS AVA 

001516 000074 HZ: WORD 60. F 60HZ SYSTEM 50 IF Alf ES OHz SYSTEM 

001316 000000 STATIN: .WORD ey rire STATASTICS® InD 

001320 000000 PACK: .WORD 0 SS 1cAvOR 

001220 DRIVE =SUNIT jpn # STORAGE: ERRORS 1-5 & 10 

; AS USED IN AP 

001322 000000 ATTN: .WORD 0 SATIN REG STORAGE: ERRORS 1-5 & 10 

001324 000000 DRVNO: .WORD 0 “DRIVE # STORAGE FOR PRINTOU 

001326 000000 Sk: :WORD 0 TERROR RETRY REGISTER 

001330 000 000 RETRY: .BYTE 0,0 :E RETRY T IN THe “ OWER BYTE 
[RETRY COUNT IN UPPER BYT 

001332 000003 FAIRNS: .WORD 3 : Tl UE V, LUE 

001334 000000 LSTAD: .WORD 0 STORE LAST ft MEMORY ADDRESS 

001336 000000 CHGADR: .WORD 0 ; £ RH/RM UNIBUS ADDRESS TEAG 

001340 000000 CFLAG: .WORD 0 "CONTROL C' FLAG 

001342 000000 BADSEC: .WORD 0 3BAD TRACK/SECTOR FLAG 

001344 000000 HOUR:  .WORD 0 COUNT ST HERE 

001346 000000 MINUTE: .WORD 0 SMINUTE'S COUNT STORED HERE 

001350 000000 SECOND: .WORD 0 3 SECONDS COUNT STORED HERE 

001352 000000 ONESEC: .WORD 0 *TIMER ROUTINE COUNTER (FOR ONE SECOND) 

001354 177777 ZROIND: .WORD 1 [ZERO INDICATOR FOR THE DATA COMPARE ROUTINE 

001356 000 FRSTER: .BYTE 0 [DATA COMPARE ERROR FLAG 
IF > g. PROCESSING *DCKER® OR CAN'T MATCH PATTERN 

001357 000 .BYTE 0 SMISCOMPARSION OR CAN'T MATCH PATTERN FLAG 
IF <0, ERROR IN BUFFER 

001360 000000 SAVER1: .WORD 0 [SAVE Ri HERE 

001362 000000 SAVERS: .WORD ?SAVE RS HERE 

001364 000000 ERCTR: .WORD [NUMBER OF E 

001366 000000 LIMIT: .WORD ;DISPLAY LIMIT 

001370 000000 CMCNT: <.WORD COUNT 

001372 000000 CMCYL: .WORD =CYLINDER ADDRESS 

001374 000 CMSEC: ‘BYTE *SECTOR ADDRESS 

001375 000 CMTRK: .BYTE STRACK ADDRESS 

001376 000000 ECBIT: WORD : BURST BIT OFFSET 

001400 000000 ECSEC: :WORD SERROR BURST WORD OFFSET (RELATIVE TO SECTOR) 

001402 000000 ECMSKO: .WORD [CORRECTION MASK FOR FIRST ERROR WORD 

001404 000000 ECMSK1: .WORD *CORRECTION MASK FOR SECOND ERROR WORD 

001406 000000 ECWRD: WORD SLOCATION OF FIRST ERROR WORD 

00141 ECGD: WORD [GOOD DATA, FIRST WORD 

00141 ECBADO: .WORD BAD DATA, FIRST WORD 

001414 ECWRD1: .WORD SLOCATION OF SECOND ERROR WORD 

00141 ECGD1: WORD [GOOD DATA, SECOND WORD 

00142 ECBAD1: .WORD *BAD DATA, SECOND WORD 

00162 001056 CYLIMT: .WORD 558.  :CYLINDER ADDRESS LIMIT 

001424 000036 SECLMT: .WORD 30. ?SECTOR ADDRESS LIMIT 
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GER DEFINED TAGS 


001446 
001450 


801037 


002740 
005455 


000003 


000000 


TRKLMT: .WORD 3 s TRACK ADDRESS LIMIT 

FE1: | .WORD 559.  :1ST FE CYLINDER 

FE2 “WORD 560. :2ND FE CYLINDER 

FEFLAG “WORD SEXERCISE FE CYLINDERS ONL Y=0 EXERCISE ENTIRE DISK=1 
EC2:  .WORD :DECREMENT TRK/SEC ONCE=0 DECREMENT TRK/SEC TWICE=1 
RDONLY: .WORD 0 [NOT READ ONLY=0, READ ONLY= 

DRVPAR: .WORD 0 [WHEN DRIVES ARE BEING ASSIGNED, 


SO=CHANGE DRIVE PARAMET 
31=D0 NOT CHANGE DRIVE PARAMETERS 
3 THE LOW BYTE CONTAINS bas | nla NUMBER FROM WHICH 


PROGRAM WAS L HIGH BYTE CONTAINS THE 
$*XXDP! DEVICE CODE FOR THE RM80. 


-SBTTL COMMON PARAMETERS 


3THE FOLLOWING TWO LOCATIONS CONTAIN THE SOFT ERROR RATE WORDS USED TO 

7DETERM 1}. END OF PASS WHEN THE _PRO DATA BI 

ait WILL_ TAKE APPRO. XMS TELY 3.33 PASSES TO as THE SOFT ERROR RATE OF 
x"10"10 8 ITS (6.2 10*8 WORDS) READ_OR 10. PASSES TO REACH THE 90% 

: CONFIDENCE OIEVEL OF 3" x ga BITS (1.875 xX 10*9 WORDS) READ. 

TENDCON= LSB AND ENDCON+2= 


ENDCON: ge operas 3(1.875 X 10*°8 WORDS) OR (3 X 10*9 BITS) READ 


XXDP: .WORD 0 


sTHE FOLLOWING TWO 1 eg pple o THE SEEK ERROR RATE WORDS USED TO 
[DETERMINE END OF PASS WHEN THE PROGRAM IS SEEK “~— . 

31T WILL TAKE 1 PASS TO ay A SEEK ERROR RATE OF 1 X + fg SEEKS OR 3 
SPASSES TO REACH A 90% CONFIDENCE LEVEL OF 3 X 10*6 SEEKS 

;ENDSEK= LSB AND ENDSEK+2= MSB 


ENDSEK: .WORD 015200 ;(1 X 10°6 SEEKS) 
-WOR 000006 


D 
MAXER: .WORD 25. sMAXIMUM ERRORS ALLOWED PER DRIVE 
LMT: .WORD 4 NUMBER. OF Ste: ERRORS . bb 1 OUT 
WRDCNT: .WORD 7936. MAXIMUM WORD COUNT (31. SECTORS) 
INTRVL: .WORD 0,0 FIRST WORD IS TH THE PERFORMANCE TYPEOUT INTERVAL 


3 (IN MINUTES). SECOND WORD IS THE INTERVAL COUNTER. 


PASSES: .WORD 1 :NUMBER OF PASSES TO END OF TEST CTHIS PARAMETER 1S 
{NOT USED WHEN PROGRAM IS OPERATING IN AUTO RUN(CHAIND 
PATTERN: .WORD 0 31F EQ°0,RANDOMLY SELECT DATA PATTERN 
31F NOT EQ 0,5 SELECT ONE SET OF PATTERN 


:POINTED By THE 


RANDWC: .WORD 0 IF EQ TO 0 ENERATE A RANDOM WORD COUNT 

Tf or ca TO 0, USE THE VALUE IN "WRDCNT’ FOR 
RATIO: .WORD 3 *READ/WRITE RATIO CRANGE 0 - 7] 

70 = 15/1 (READ/WRI TE) 

i1- A 

ig - $6 

34 - 46/46 

35 - 3/2 

36 - 2/6 


SEQ 0049 | 


- 
C2 
GE 



























COMMON PARAMETE 


001500 


001502 


001504 


001506 


001510 


001516 


001540 


000001 


000001 


000001 


000010 
000004 


000400 


ENDING: 


WRTICHK: 


MESSAGE : 


RANDOM: 


BADBLK: 


-SBTTL 


BEGPAT: 
BEGCOD: 


BF SWC: 
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- WORD 


- WORD 


«WORD 


» WORD 


— 


EQ 0050 €2 
. GE 
37 - wrt 
1 :1F NOT EQ 0, END OF PASS aT eet 
3BY WHE READ’ COUN 5 X 10*8 WORDS) 


[IF EQ 0, END OF PASS DETERMINED 
3BY THE SEEK COUNT. (4 X 10°5 SEEKS) 
1 :IF NOT EQ 0, DO AN APPROPRIATE WRITE 
: CHECK AFTER EACH WRITE COMMAND. 
F EQ 0, SELECT WRITE CHECK COMMANDS 


eat WITH OPERATOR SPECIFIED 
NOT shea 0, PRINT ERROR MESSAGES RELATING TO 


THESE AR 

<I1F 6 too "RANDOMLY SELECT DATA BLOCK 

SADDRESS. IF NOT EQU 0,SEQUENTIAL 

SSELECT DATA BLOCK AD ADDRE 

0 SIF €Q TO 1, THE BAD SECTOR ENTRY TABLE WILL ALWAYS 
iBE INITIALIZED WHEN ASSIGNING A DRIVE: IF €Q TO 0 

THE BAD SECTOR ENTRY TABLE WILL ONLY BE INITIALIZED 

IF THE HDA SER IAL NUMBER HAS LE ANGED § SINCE THE 
*LAST TIME IT WAS READ. (NOTE: IF re SERIAL wD. HAS 
*CHANGED, THIS MOST LIKELY MEANS THAT THE HDA OR DRIVE 
[HAD BEEN REPLACED WHILE THE DRIVE WAS DEASSIGNED) 


VALUES FOR FIRST OPERATION 


- WORD 
-WORD 


«WORD 


8. $b pat ne PATTERN CODE cone - 15.J 
4 STARTING COMMAND CODE —EO- 5] 

30 = WRITE CHECK DATA (° UCKE te 

3] = WRITE CHECK HEADER , DATA (‘WCHKHD® = NOT USED) 

ig = WRITE DATA (°WRIDAT*) 

33 = WRITE HEADER & DATA (*WRTHD’ = NOT USED) 

34 = READ DATA (*RDDAT’ 

75 = READ HEADER & DATA ('RDHD") 
256. :STARTING WRD CNT CRANGE 6 = WRDCNTJ 


-SBTTL TABLES, CONSTANTS, AND VARIABLE LOCATIONS 
sLIST A DRIVES PERFORMING COMMANDS 
ORDERO D 


ASNLST: 


sADDRESSES OF 
: WORD 


BpRVS 


oS OOQOooooeoo 


3A BIT SET IS AN ASSIGNED DRIVE 
VES TO BE DEASSIGNED 


oooo= 


:RANDOAL 
1 sIF EQ DO NOT PRINT DATA ERROR MESSAGES 


m 4 
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TABLES, CONSTANTS, AND VARIABLE LOCATIONS 
001554 .WORD 0 
001556 000 “WORD 0 
001560 000000 “WORD 0 
001562 00 “WORD 0 
001564 000000 “WORD 0 
sADDRESSES OF NEWLY ASSIGNED DRIVES 
001566 000000 NEWUNT: .WORD 0 
001570 000000 ; 0 
001572 000000 ; 0 
001574 000000 “WORD 0 
001576 00000 oW 0 
001600 000000 : 0 
001602 0000 "WORD 0 
001604 000000 “WO 0 
000000 “WORD 0 
LIST OF DRIVES WAITING FOR BUFFERS/PARAMETERS 
001610 0000 .WORD 0 
001612 000000 “WORD 0 
001614 000000 “WORD 0 
001616 000000 “WORD 0 
001620 “WORD 0 
001622 000000 “WORD 0 
001624 000000 “WORD 0 
001626 000000 “WORD 0 
001630 000000 “WORD 0 
LIST OF DRIVES WAITING FOR BUFFERS 
001632 000000 WO 0 
001634 000000 “WORD 0 
001636 000000 “WORD 0 
001640 000000 “WORD 0 
001642 000000 “WORD 0 
001644 000000 “WORD 0 
646 “WORD 0 
001650 000000 “WORD 0 
001652 “WORD 0 
sBUFFER ALLOCATION TABLE ENTRY COUNT 
001654 000000 BUFTBL: .WORD 0 
001656 000000 0000 ; 0.0 
001662 000000 000000 “WORD 0.0 
001666 000000 000000 “WORD 0.0 
001672 000000 000000 “WORD 0.0 
001676 000000 000000 “WORD 0,0 
001702 000000 000000 “WORD 0.0 
001706 000000 000000 “WORD 9.9 
001712 000000 000000 “WORD 0. 
001716 000000 000000 “WORD 0.0 
001722 000000 000000 ; 9.0 
SSeS NED $0988 te 8.3 
001528 000000 090009 “tor % 
001746 000000 000000 “WORD 0, 


N 4 
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TABLES, CONSTANTS, AND VARIABLE LOCATIONS 
001752 000000 000000 WORD 0,0 
001756 000000 sii ~WORD 0,0 
001762 000000 00000 WORD 0,0 
001766 000000 000000 ~WORD 0,0 
00177, sist WORD 0,0 
001776 000 WORD 0,0 
002002 sista «WORD 0,0 
008 ~WORD 0,0 
002012 000000 -WOR 0,0 
002016 000000 000000 WORD 0,0 
00202 at 000000 WORD 0,0 
bosoes 00000 -WORD 0,0 
002032 000000 0000 WORD 0,0 
002036 000000 000000 WORD 0,0 
002042 000000 0 -WORD 0,0 
000000 000000 WORD 0,0 
002052 000000 00 «WORD 0,0 
sDRIVE PARAMETER BLOCK(DPB) POINTER TABLE 
002056 045416 BLKADR: .WORD ODRIVEO ;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 0 
002060 047632 «WORD DRIVE] ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 1 
002062 052046 «WORD ODRIVE2 ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 2 
002064 054262 WORD DRIVES ADDRES THE PARAMETER BLOCK FOR DRIVE 3 
002066 056476 «WORD DRIVES ;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 4 
002070 060712 -WORD DRIVES ; ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 5 
002072 063126 WORD DRIVE6 ;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 6 
002074 065342 -WORD DRIVE? ;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 7 


DRIVER COMMAND oo TABLE (USED IN RM DRIVER) 


002076 = «-'151 tOMTBL: BYTE SWRITE CHECK DATA 

002077 ~=Cs«377 “BYTE = SWRITE CHECK HEADER AND DATA (NOT USED) 

002100 «161 "BYTE WRTDAT 2 A 

002101 «377 "BYTE -1 TWRITE HEADER AND DATA (NOT USED) 

002102 («171 “BYTE RDDAT : A 

002103 «= «173 “BYTE RDHD  :READ HEADER AND DATA 
SFUNCTION(COMMAND) CODE CONTROL TABLE 

002104 006 OpTaL: .BYTE 4 SEEK 

002105 006 "BYTE 6 tRECAL 

902106 919 “BYTE 19 {DRIVE CLEAR 

00210 012 “BYTE 1 + RELEASE 

002110 = O14 "BYTE 14 COFFSET 

002111 «01 "BYTE 16 TRETURN TO CENTERLINE 

ooetig 02 "BYTE SREADIN PRESET 

00211 0 “BYTE SPACK ACKNOWLEDGE 

002114 03 *BYT SEARCH 

002115 «050 : 0 tURITE CHECK DATA 

02116 052 ; 2 SWRITE CHECK HEADER AND DATA 

00211 06 . é SURITE DATA 

002120 062 ‘BYTE SWRITE HEADER AND DATA 

003152 a ‘BYTE 7 ?READ HEADER AND DATA 

05156 O76 , - ? TERMINATOR 


-EVEN 


>MESSAGE CONTROL TABLE FOR ‘OPTBL' TABLE 
002124 123 105 105 MNTBL: .ASCIZ /SEEK / 
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TABLES, CONSTANTS, AND VARIABLE LOCATION 


i a ak a 8 ed td ed dd 
SUNN NEN 
AMNNNNNWONNNN ESP 
a kt ad td dd td dt 
“"DONNCOCOONOONOS 
NS SNWIWN NE AUINM 
od ds od 
ONIN" QO0090—NVO 
BOL SSW WW" WA SOW 


- sian 15:16:58 PAGE 7-5 


e*eee#*# >>>> 


PPPPPPrrrrrYr>P 
ANNNHOHMNNNMNONNOOM 


AAAOAAAAAOAAOOOOY 
fig Dmg Beg Dt meg Pana deo feng Dang dame bonny foeme emt thee Bem 
NNN 

~ 

wn 

s 

o 

=x 


~EVEN 


-SBTTL DATA PATTERNS 


§ 


-WORD DATA! 
WORD DATA 
eWORD DAT. 
-WORD DATA4 
~WORD DATAS 
~WORD DATA6 
~WORD DATA? 
-WORD DATA8 
- WORD ATA9 
-WORD DATA10 
~WORD DATAI1 
~WORD DATA! 
-WORD DATAI 
-WORD DATA14 
-WORD DATAI5 
-WORD ZEROS 
-WORD ONES 

ZEROS: 

DATAO: .WORD 4 
~ WORD 00000 
- WORD 0000 
- WORD 44 
«WORD 00 
- WORD 00000 
- WORD 4444 
WORD 80 0 
- WORD 00 
- WORD 000: 
- WORD BOS 
- WORD 
WORD 000 
- WORD 0 5 
- WORD ; 0 
WORD 000 


;STANDARD DATA PATTERN P 
TNDAT: .WORD DATAO 


SPP VBS BWW Ws 


rt phen TABLE 


3 STAN a DA:A PATTERN 0 


sALL O'S ! 
zALL 1°S PATTERN 


sALL 0°S DATA PATTERN 





ao 
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DATA PATTERNS 


SEQ 0054 


Om 


0024 1 DATA1: .WORD 00001 ;STANDARD PATTERN 1 
Sai sue este 
i & » WORD 0000 
4 17 «WORD 3 17 
002440 f «WORD 0037 
BR 442 0000 -WORD 000077 
444 000177 -WORD 000177 
00244 ea th » WORD 377 
002450 000777 WORD 0777 
002452 001777 - WORD on 777 
002454 003777 - WORD 3777 
00245 7777 -WORD 007777 
0024 17777 «WORD 017777 
002462 037777 eWORD 037777 
002464 077777 ~WORD 077777 
002466 177777 «WORD 177777 
002470 177776 DATA2: .WORD 177776 ;STANDARD PATTERN 2 
002472 177774 «WORD 177774 
002474 177770 -WORD 177770 
002476 177760 -WORD 177760 
002500 177740 «WORD 177740 
002502 177700 -WORD 177700 
002504 1776 -WORD 177600 
002506 177400 -WORD 177400 
002510 177000 «WORD 177000 
002512 176000 -WORD 176000 
002514 174000 -WORD 174000 
Oo ee t8 70000 -WORD 170000 
002520 160000 -WORD 160000 
002522 140000 -WORD 140000 
002524 100000 «WORD 100000 
002526 000000 -WORD 600000 
002530 000000 DATA3: .WORD 000000 ;STANDARD PATTERN 3 
oe Se ee Ee 
SE GiNe ie Wee 
002540 177777 ~WORD 177777 
002542 177777 ~WORD 177777 
Se See tee se 
at 8 oe te 
8 33¢ 177777 ° woe 44444 
Se He a 
oe ee lh 
Se | tee 


1% 
1 


3 1 3STANDARD PATTERN 4 


SEQ 0055 
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DATA PATTERNS 


ESS SS 


Cee gee peel ee el el cel ee el oe 
wToowso 


Sess 


cucucucucucucucucuCy 


SSSSsssses 


3STANDARD PATTERN 5 


PPEEEELEEEEEE EEL 


MMM AUCICINMCUOINAINCUN GY 
NNAWNAMNNNIOINACUUA CIN CI 


secessescoceeees 
SS8SSssssssss 


iN 


Sots 
SSss 


sSTANDARD PATTERN 6 


MMM 
ALAA AAA 
MAI 
MALAITA 
CAAA AA 
yoo coi teeeik cual eee seem cone aeee seme ieee ‘eh Sone eee eh sel 


SSSSS55555555555 


DATA6: 


CLARA 


a I ce a ae ee el el eel el 


LENSLOWT ORNS 


KRARARRR 


Or... ~ 
ssssssss 


ows 


~ 
Oo 
iN 
S 


:STANDARD PATTERN 7 


RUTKSYTSRAR 
KRRRARARRRRAR 
eucucucucucucucucuquaugy 


SSSSSSSSSSSS 
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DATA PATTERNS 


rary S 


WIT 


WAIN AIAN AAAI PUI 


2S 
n> 


WAN MAAUIN INIA 
WMA ANNTNT 


WU 
WANNA IAAI 


SSVI VIII VIII IIIa IO IO 
WAAAIN AWA 
WI 
WUE 

= WwW 


ae 


esse 


DATA8B: 


DATA9: 


DATA10: 


DATA11: 


eeeee#e#e###8fe#ee#eeeee @ 
Ss ; 
_~] 
met eed od hd SH ee Se 


° 
o 
So 


=_—oO 


WAPOA 

Sa 
MmuUrouU 
rmourUT 


A. AAA AAAI = 
WALA AA AAAI 
WIAA A AAI ANITA 


SV III KINI IOI O 
a ne 
UMN 


WUAAAN AAI ANA AAI 


WANA ANAL AAI AAI 


es 


shoes: 


SERSS 
NVI NNN ss eS 
NNW oN Ss 


~wSNS NN NNo 


NNO 


pn te te | 


NWO 
SWIM NNN NSS 
~VNN 


~NNN 


172666 


sSTANDARD PATTERN 8 


sSTANDARD PATTERN 9 


zSTANDARD PATTERN 10 


zSTANDARD PATTERN 11 


SEQ 0056 


he tol 
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DATA PATTERNS 


S$33333ssssssss 


WWW 


003166 


FNVSREVSEEVS 


Sane & 


S8sssss Seesenemenen 


uw 
wm 
wa 


REVSUS ee 


uw 


7777 
177776 
153333 

7? 


177777 


DATAl2: . 


DATA13: . 


DATAI4: . 
ONES: 


MUNIN 
WO UO 
WO UNOS 
IRN’ 


evel weet eB ad ore ait ad a a a a mh ee 


MPO MnouIng 
AN 
Won 


$55 


VUNUMINUINUY 
Wn 

wr 

w 


ee ee eed a ad ed ed et = = —I OE) eb oh 
NSNNNOUWN 
VUUNNN 
NNN 
ANNNN 
ans 


ANNNNN 


3STANDARD PATTERN 12 


3STANDARD PATTERN 13 


:STANDARD PATTERN 14 
zALL 1°S DATA PATTERN 


SEQ 0057 






G 5 
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DATA PATTERNS 
177777 «WORD 177777 
10 177777 «WORD 177777 
12 177777 «WORD 177777 
14 177777 «WORD 177777 
16 177777 «WORD 177777 
177777 «WORD 177777 
177777 «WORD 177777 
4 177777 eWORD 177777 
6 177777 ~WORD 177777 
177777 STANDARD PATTERN 15 


177777 DATA15: .WORD 


S8S38S33333s SSsssssss 


ahaa ya tye ate! witty el 
WW w+ 
sh 
es 


rd -WORD 000 
54 «WORD 
B WORD 
000000 . WORD 00 
00 000000 «WORD 000 
003364 000000 -WORD 000000 
003366 000000 -WORD 000000 


ta) 


H 5 | 
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ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 
:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN ata 
;*THE INFORMAT NDEX NUMBER 


ION IS OBTAINED BY USING THE 
zsLOCATION sivere, et ae: INDICATES WHICH ITEM IN THE TABLE {s PERTINENT. 


IF $IT IS 0 THE ONLY PERTINENT DATA IS (SERR 
: *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
7* EM 3 sCOINTS TO THE ERROR MESSAGE 
7* DH NTS TO THE on HEADER 
7* dT POINTS TO THE D 
se DF :3POINTS TO THE DATA FORMAT 
1 003370 SERRTB 
§ ERROR 1 
4 003370 067646 EM 3RH CONTROLLER INTERRUPT OCCURRED (RMAS = 0) 
5 003372 072467 OH1 
6 003574 073134 oT1 
‘ 003376 
10 sERROR 2 
11 003400 067 $0 E sUNEXPECTED ATTENTION OCCURRED 
\¢ 003402 ores 4 DH 
13 003404 073140 dT 
i 003406 0 
i$ ERROR 3 
18 003410 067756 EM3 sNOT USED 
19 003412 072550 one 
3 003414 073156 dT 
1 003416 
38 ERROR 4 
25 0034 4 70014 EM4 sNOT USED 
0034 72576 DH4 
7 sit 4 073166 DT4 
8 003426 
’ ERROR 5 
0034 070051 EMS sADDRESS PLUG BIT CHANGED 
003432 76378 DH 
sit 73140 DT 
5 003436 000000 
ERROR 6 
9 4 105 EM6 zNOT USED 
saute greue ‘° 
41 o8 4 7 DT6 
42 6 0 


| 


64$: 


CZRNAAQ | RB PERE EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 9 SEQ 0060 
1 s THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 
4 00 5 11600 BADTMO: MOV (SP) RO : SAVE pC WHERE THE TIME OUT OCCURED 
4 00 003 4 TST =(RO C- 
& 54 022626 CMP (SP) +, (SP)+ ZRESTORE STACK POINTER 
é 00 56 104401 003464 TYPE 65$ is TYPE ASCIZ STRING 
000417 BR 4$ *GET OVER THE ASCIZ 
sont ii$58: ASCIZ OF senmawertal’ BUS TIMEOUT, PC=/ 
z O03838 Woeees HOY . RO,-(SP) ;SETUP FOR TYPING OUT PC 
9 003526 00024 NOP PUT *HALT CO)" INSTRUCTION HERE IF YOU WISH 
10 :T0 STOP ON UNE XPEC TIMEOUT. 
if 003530 000404 BR START [BRANCH TO START1 
13 .SBTTL START OF PROGRAM 
13 00353 012737 177777 001336 START: mov #=1 ,CHGADR Set RH/RM AD ADDRESS CHANGE FLAG 
17 umes 
18 003542 012737 000400 001336 START1: MOV #400, CHGADR :CLEAR THE RH/RM ADDRESS CHANGE FLAG 
19 550 (00 40 On ge ina usenet aaa ee ae 
003 : 
- 003552 012737 000001 001212 MOV #1, $TESTN z:SET TEST NUMBER IN APT MAIL BOX 
21 003560 005227 000000 START2: INC #0 :TTY LOOP, WAIT FOR INCREMENT 
32 003564 001375 3 OF 
33 003566 RESET [CLEAR THE WORLD 
$¢ »SBTTL INITIALIZE THE COMMON TAGS 
Z3CLEAR THE COMMON ON TAGs. ($ (SCMTAG) AREA 
003570 012706 001114 MOV zzFIRST LOCATION TO BE CLEARED 
003574 00 026 CLR ris 33 CLEAR MEMORY LOCATION 
Hines) borsre _—— cit i, ~ POOP BACK IF NO 
003604 012706 001100 :ISETUP THE STACK POINTER 
003610 012737 034 ss INITIALIZE . ree WECTORS C :;EMT VECTOR FOR ERROR ROUTINE 
003616 012737 arty iat MOV #3408 artarvecee LeveL 
003624 012737 04 3 MOV aS TRAP VEC": nitty VECTOR FOR TRAP CALLS 
0036 12737 00054 MOV 0 Os PRAPVECs LEVEL 
003640 012737 4 MOV as#PWRVEC cote FAILURE VECTOR 
003646 012737 34 MOV 0 a#PWRVEC+2 ::LEVEL 7 
003654 ot 3 17654 37 MOV ai70Se5. su [:PRIME THE RANDOM NUMBER GENERATOR 
003662 012737 123456 0371 MOV #123456, 3LONUM ::B0TH HIGH AND LOW WORDS 
33SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
t:EQUAL TO A "1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
3670 013746 MOV @FERRVEC ,-(SP) 33 SAV VECTOR 
3674 0127 MOV $,a#ERRVEC ::SET UP ERROR VECTOR 
003702 012737 1775 1154 MOV #DSUR,S TSE Tup FOR A HARDWARE SWICH REGISTER 
003710 012737 17757 001136 MOV ADDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
00 716 02 777 «177777—:=«1752 CMP #1, S:TRY TO REFERENCE HARDWARE SWR 
3724 001012 BNE 648 Z3BRANCH IF NO TIMEOUT TRAP OCCURRED 
33 THE HARDWARE SWR IS NOT = 
03 BR BRANCH IF NO TIMEOUT 
O19 003736 mov 3:SET UP FOR TRAP RETURN 


658 
#65$, (SP) 


zz 
4 


J 
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INITIALIZE THE COMMON TAGS 


003736 012737 176 001154 65$: MOV zzPOINT TO SOFTWARE SWR 
003744 012737 174 001156 MOV ai eenee DB DISPLAY 
003752 012637 66$: MOV (SP)+,a#ERRVEC ;;RESTORE ERROR VECTOR 
0037 005 7 001214 CLR SPAS zzCLEAR PASS COUNT 
003762 132737 00 001227 BITS SAP YSIZE, SENVM seTEST USER SIZE UNDER APT 
00377 014 BEQ 7$ USE NON-APT SWITCH 
005/7¢ 12737 001230 001154 see MOV ASSWREG, SUR siNO. Use APT SWITCH REGISTER 
3; SETUP “TIMEOUT TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
004000 012737 003450 000004 WBADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
8 004006 012737 000300 000006 mov #PR6,ERRVEC+2 LEVEL 6 
$3 .SBTTL TYPE PROGRAM NAME 
7; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
004014 005227 177777 INC a1 :sFIRST TIME? 
004020 001027 BNE 68s = SBRANCH IF NO 
004022 104401 004030 TYPE 9$ iETYPE ASCIZ STRING 
004026 000424 ipGET O OVER THE ASCIZ 
aninee 5698" SASCIZ <CRLF>@CZRNAAO - RMBO PERFORMANCE EXERCISER @<CRLF> 
.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
004100 005737 000042 TST ans2 3cARE WE R UNNING UNDER XXDP/ACT? 
004104 991012 BNE 70$ 33BRANCH IF YES 
004106 123727 001226 000001 CMPB Ss SEN, #1 ARE WE RUNNING UNDER APT? 
004114 0014 BEQ 70$ *SBRANCH IF YES 
004116 023727 001154 000176 CMP SWR ASWREG : ESOP TWARE SWITCH REG SELECTED? 
004124 001005 BNE 71$ = :BRANCH IF 
004126 1044 GTSWR 7:GET SOFT=SWR SETTINGS 
004130 00040 BR 71$ 
004132 112737 000001 001150 70$: MOVB #1,S$AUTOB 3:SET AUTO-MODE INDICATOR 
- 004140 71$: 
4 THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
33 [PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 
35 004140 005037 001444 CLR XXDP ZCLEAR *XXDP* LOAD DEVICE STORAGE 
3% 004144 122737 000016 000041 - ¢MPB = #16, 0841 : LOADED FROM AN RM8O ? 
Hi 004152 001121 BNE BR IF 
004154 O13 7 000040 001444 MOV a#40,XxDP GET DEVICE INDICATOR AND NUMBER 
39 004162 122737 200007 001444 CMPB «#7, XXDP :1S IT A VALID NUMBER 
40 0041 103002 BHIS 1$ YES 
41 0041 10505 971464 CLRB = XXDP iN. DEFAULT TO DRIVE 0 
4¢ 004176 005737 0110042 1$: TST 42 HAIN MODE OR ACT11 AUTO ACCEPT ? 
43 004202 001425 BEQ $ [BR IF NEI THER 
44 004204 104401 004212 TYPE 73$ 35 TYPE ASCIZ STRING 
004210 000412 BR 23 “GET OVER THE ASCIZ 
-:73$: .ASCIZ <CRLF>/NOT TESTING DRIVE 
004236 72$: 
45 004 36 005046 CLR (SP) ZCLEAR WORD ON STACK 
46 004240 113 if 001444 MOVB  —-XXDP,, (SP) 3GET DRIVE ADDRESS 
47 004244 10440 TYPOS THE ADDRESS 
48 004 46 1 .BYTE 1 SONLY 1 CHARACTER 
49 00424 "BYTE 0 *SUPRESS LEADING ZEROS 
50 004250 104401 001203 TYPE SCRLF 7CReL 
3 004254 000460 BR § [GET NUMBER OF DRIVES 
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T VALUE FOR SOFTWARE SWITCH REGISTER 

53 004 56 $237 177777 2$: INC #1 :FIRST TIME THRU HERE ? 

54 004 1055 BNE 3$ NO 

55 004264 104401 004272 TYPE 75$ t;TYPE ASCIZ STRING 
004270 000410 BR 74$ =°GET OVER THE ASCIZ 
as 44758: VASCIZ. <CRLF>/TO TEST DRIVE / 

56 to4313 005046 CLR -(SP) :CLEAR WORD ON STACK 

57 004314 113716 001444 MOVB - XXDP, (SP) [GET DRIVE ADDRESS 

58 004320 10440 TYPOS [TYPE DRIVE ADDRESS 

59 004 32 001 .BYTE 1 [ONLY 1 CHARACT 

60 004 000 “BYTE 0 SSUPRESS LEADING ZEROS 

61 004324 104401 004332 TYPE 76$ +;TYPE ASCIZ STRING 
004330 000432 BR 7:GET OVER THE ASCIZ 
sala 45768: .ASCIZ. 7, HALT PROGRAM, CLEAR LOC. 40 AND RESTART PROGRAM. /<CRLF> 

65 004416 004727 033326 JSR PC, $TKINT ;TURN ON THE KEYBOARD INTERRUPT 

66 004422 105737 001226 TSTB = SENV [RUN UNDER APT MODE 

67 004426 001415 BEQ 5 =NO,DO NOT BOTHER 
004430 105737 001256 TST8 = SVECT1 [NEW VECTOR 

69 004434 001403 BEQ 4$ [NOT LOAD IF = 0 

70 004436 113737 001256 001274 MOVB $VECT1,SRMVEC NEW VECTOR 

71 004444 005737 001262 4$: TST SBASE ‘NEW BASE ADDRESS ? 

72 004450 001471 BEQ 6$ NO 

73 004452 013737 001262 001272 MOV S$BASE,SRMADR §;NEW BASE ADDRESS 

i 004460 000405 BR 6$ 

76 004462 105737 001150 S$: TSTB © $AUTOB :RUNNING IN AUTO MODE ? 

77 004466 001002 BNE iY 

z 004470 004737 100674 JSR PC ,BUSADR *CHECK RH/RM BUS ADDRESS 

BS 004474 013737 001272 040310 6$: MOV SRMADR,RMADR = ; LOAD ADDRESS INTO DRIVER 

86 004502 013737 001274 040312 MOV SRMVEC.RMVEC :LOAD VECTOR INTO DRIVER 

87 004510 001316 CLR STATIN [CLEAR PERFORMANCE SUMMARY TYPEOUT FLAG 

88 004514 012705 001520 MOV #ORDERQ,RS *START OF AREA TO CLEAR 

89 004520 005025 7$: CLR (R5)+ 

90 004522 022705 002056 CMP #BLKADR RS ;LOOK FOR END OF CLEAR AREA 

91 004526 001374 BNE 7$ “BR IF NOT FINISHED 

92 004530 012706 001100 MOV #STACK,SP TSETUP THE STACK POINT 

93 004534 005037 177776 ciR p [CLEAR THE PROCESSOR STATUS WORD 

94 004540 013737 001314 001352 MOV H2, ONESEC SRESTORE ONE SECOND COUNTER VALUE 

95 004546 005037 001344 CLR HOUR [CLEAR THE *§ COUNTER 

96 004552 005037 001346 CLR MINUTE [CLEAR THE MINUTE’S COUNTER 

97 004556 005037 001350 CLR SECOND [CLEAR THE SECOND'S COUNTE 

98 004562 005037 001466 CLR INTRVL#2 :CLEAR_ INTERVAL COUNTER 

99 004566 005037 00132 CLR PACK “SET 'T® & CLEAR 'R® OR "W’ COMMAND FLAG 

100 004572 005037 001340 CLR CFLAG [CLEAR THE ‘CONTROL C° FLAG 

103 004576 005037 04554 CLR DRIVEO+SFIRST  :RESET $FIRST FLAG FOR DRIVE 0 
004602 005037 047756 CLR DRIVEI+SFIRST  :RESET $FIRST FLAG FOR DRIVE 1 
004606 005037 05217, CLR DRIVE2+SFIRST RESET $FIRST FLAG FOR DRIVE : 
004612 003037 094406 CLR DRIVES+S$FIRST RESET SFIRST FLAG FOR DRIVE 
004616 005037 05662 CLR DRIVEG+SFIRST RESET $FIRST FLAG FOR DRIVE 4 
004622 005037 061036 CLR DRIVES+SFIRST  :RESET S$FIRST FLAG FOR DRIVE 5 
004 $ 003037 S280 CLR DRIVES*SFIRST RESET SFIRST FLAG FOR DRIVE é 
004632 005037 466 CLR DRIVE7+SFIRST  :RESET $FIRST FLAG FOR DRIVE 

104 004636 005037 001440 CLR RDONLY ZASSUME READ/WRITE CONDITI 

105 004642 032777 1 1746304 BIT #SW0, aSWR 71S EXERCISER IN ‘READ ONLY’ MODE ? 

106 004650 001402 BEQ 8$ BR IF NO 


se 
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on wm 
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005237 


WINS 
SIN 
Ss 


2838 


eal 
Nm 
IN 
N 


ss 
~ 


SN 


NANANAS 


aunakesseess 


oooo 
paar foe Par Pry 
NINA 


Whonrw 


001440 


SANS 
MONG 


001234 
000004 


040316 


040316 


001234 


+ alia 15:16:58 PAGE 9-3 


INC RDONLY 3LOCK PROGRAM IN ‘READ ONLY’ MODE 


sAUTO SIZE FOR _RH70 


ONTROLLER AND DETERMINE IF IT IS 
;JUMPERED FOR 22 OR 


2 REGISTERS 





SIZE70: CLR RHEXT :CLEAR RMBAE OFFSET 

BIC #174000,$CPUOP CLEAR CPU TYPE REGISTER 

MOV ERRVEC,-(SP) :SAVE CONTENTS OF ERROR VECTOR 

MOV #2$, ERRVEC :SE TUP TRAP’ RETURN ADDRESS 

MOV SRMADR,R :GET RMCS1 AD 

ADD #50,RO. GET REGISTER OFFSET FOR RH70 

MOV #10. -RI :GET NUMBER OF REGISTERS TO CHECK 

TST (RO)+ [TRAP IF NOT A VALID RMBAE 

TST (RO) + STRAP IF NOT A VALID cs3 

MOV #50,RHEXT SLOAD OFFSET FOR RMBAI ents3 REGISTER RH) 
1$: TST (ROS+ STRAP IF NOT A VALID ReGi STE 

DEC R1 SDONE WITH ALL 32 REGISTERS 4 

BNE 1$ “BR IF NO 

MOV #74, RHEXT [LOAD OFFSET FOR RMBAE (32 REGISTER RH) 
2s: MOY #3$, (SP) ;SETUP RETURN ADDRESS 
3$: MOV SRMADR,RO :GET RMCS1 REGISTER 

MOV RHEXT,R1 [GET RMBAE REGISTER OFFSET 

BEQ 4$ [BR IF NONE 

ADD RO,R1 [GET RMBAE REGISTER 

BIS #A17!A16, (RO) :Set EXTENDED ADDRESS BITS IN RMCS1 

CHP #3, (R1) ARE THE EXTENDED BITS SET IN RMBAE ? 

CLR (R1) <CLEAR EXTENDED ADDRESS BITS IN RMBAE 

BIT AI7tA16, (RO) ZARE THE EXTEND BITS CLEAR IN RMCS1 ? 

BIS #31T13!B1T12,$CPUOP 3SET_THE 11/70 CPU TYPE CODE 
4$: MOV (SP)+,ERRVEC.  ;RESTORE CONTENTS OF ERROR VECTOR 


ROUTINE TO DETERMINE BUFFER MAX WORD COUNT AND FUDGE HDA SERIAL NUMBER 
:TO ALLOW BAD SECTOR FILE(DEC144) TO BE READ FROM EACH DRIVE AT 


SIZMEM: INC | sFIRST TIME THRU HERE ? 
BNE 1$ BR IF 
MOV #=1,R0 *FUDGE MSB'S FOR, INITIALIZING HDA S/N 
MOV RO,DRIVEO+SHSNM :INIT. S/N FOR DRIVE 0 
MOV O/DRIVE1+S$HSNM :INIT. S/N FOR DRIVE 1 
MOV O.DRIVEG+SH TINIT. S/N FOR DRIVE : 
MOV RO, DRIVES+SHSNM :INIT. S/N FOR DRIVE 
MOV DRIVE4+SHSNM : INIT. S/N FOR DRIVE 4 
MOV RO.DRIVES+SHSNM :INIT. S/N FOR DRIVE 5 
MOV RO, DRIVES*+SHSNM :INIT. S/N FOR DRIVE 4 
MOV O;DRIVE7+S$HSNM INIT. S/N FOR DRIVE 
JSR PC. S$SIZE SSEE HOW MUCH MEMORY ON SYSTEM 
MOV SLSTAD,LSTAD SAVE THE LAST ADDRESS 
1$: MOV 1,BUF f8L NUMBER OF BUFFERS 
MOV #ENDPGM, BUF TBL+2° STARTING ADDRESS OF BUFFER 
MOV LSTAD,BUFTBL+4 ;LAST avba TO BUFFER ALLOCATION TABLE 


RS 
sé 


M 
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OFTWARE SWITCH REGISTER MA 


Tet 001334 160000 CMP STAD ,#160000 en 28k ? 


[NO 
7 ; 160000 001660 #160000,BUF TBL+4 :XXDP_MAX MEMORY 28K 
102200 001660 2$: UB #ENDPGM, BUF TBL +4 ae TiSURTRACT PROGRAM SPACE 
001660 : BUF TBL+4 :CONVERT TO WORD COUNT 
000144 001660 UB #100. ,BUFTBL+4 SAVE ROOM FOR THE ‘ABS’ LOADER 
001150 SAUTOB [RUNNING IN AUTO MODE ? 


$ 2BR I 
003000 001660 #1536. ,BUFTBL+4 ;SUBTRACT "XXDP° LOADER SIZE 
001462 001660 3$: MP altel 31S MAX WORD COUNT TOM LARGE ? 


: F NO 
001660 001462 BUF TBL+4,WRDCNT ;USE MAX AVAIL MEMORY AS MAX WRD CNT 
001462 077470 4s WRDCNT ,PARLST+2 ;VALUE FOR THE PARAMETER TABLE 


3SEE IF THE OPERATOR WANTS TO CHANGE ANY PARAMETERS 


037716 LKPAR: PWRFLG RETURNING FROM POWER FAIL ? 
BNE SETVEC BRANCH I 
001150 $AUTOB sRUNNING IN AUTO MODE ? 


1$ : 
000004 173674 #SW02 ,ASWR DOES USER WANT MANUAL INTERVENTION ? 


BNE : 
076674 a teat zTYPE FE CYLINDERS ONLY MESSAGE 


001340 : CFLAG ZCLEAR CONTROL C FLAG 

076562 =MESFE [TYPE "EXERCISER FE CYLINDERS ONLY ?° 
SREAD THE ENTR 

(SP)+,RO ‘SAVE ADDRESS OF RESPONSE 

CFLAG WAS i CONTROL C ? 

$ &R :WAS RESPONSE A CARRIAGE RETURN ? 

000001 st ‘WAS IT TERMINATED WITH CARRIAGE RETURN ? 


sBR I 
000131 CMPB sWAS IT A ‘Y* RESPONSE ? 
3BR IF YES 
000116 CMPB :WAS IT A "N*® RESPONSE ? 
Q 3BR IF YES 
076341 : sTYPE BAD ENTRY MESSAGE 
BR LKPAR TRY AGAIN 
001440 : s:PROGRAM RUNNING IN READ ONLY MODE ? 
BNE 4$ BR IF YES (DO NOT TYPE OVERWRITE MESSAGE) 
076756 -OVRWRT s TYPE DATA OVERWRITE MESSAGE 


076646 : TYPE SURE sTYPE *ARE YOU SURE ?° 
sREAD THE ENTRY 
(SP)+,RO 3SAVE ADDRESS OF RESPONSE 
CFLAG sWAS IT CONTROL C ? 
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LKPAR : 
(RO) sWAS RESPONSE A CARRIAGE RETURN ? 
E 7$ 3BR IF YES 
000001 1(RO) 3WAS IT TERMINATED WITH CARRIAGE RETURN ? 
BNE 3BR iF _NO 
000131 #*y,(RO) sWAS IT A °Y*® RESPONSE ? 
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000006 
001462 


4025 
f 040252 


173324 


5$: TYPE 


6$: INC 


BR 
7$: TYPE 


8$: TST 


9$: CLR 


10$: TYPE 
BR 


ENTPR: MOV 


6$ 

#°N, (RO) 
7$ 
BADENT 
_—— 
FEONLY 
mee 
oMREAD 
CFLAG 
SAUTOB 
SETVEC 
-ASKPAR 


(SP)+,RO 
CFLAG 


BAD 

$$ 
#PARLST,R3 
PC PARENT 
WRDCNT #6 
SETVEC 
#6, WRDCNT 


SEQ 0065 


3BR IF _YES 
3WAS IT A_‘N® RESPONSE ? 
3BR_IF YES 
3TYPE BAD ENTRY MESSAGE 


‘EXERCISE THE ENTIRE DISK 

TYPE FE CYLINDER ONLY MESSAGE 

i 1S PROGRAM LOCKED IN "READ MODE"' ? 
[TYPE READ ONLY MESSAGE 


sCLEAR CONTROL C FLAG 
ee IN AUTO MODE ? 


IF YES 
ZTYPE ‘CHANGE PARAMETERS ?° 
sREAD THE ENTRY 
3SAVE ADDRESS OF RESPONSE 
sWAS IT CONTROL C ? 
WAS RESPONSE A CARRIAGE RETURN (DEFAULT ‘N*)? 
;WAS 'y TERMINATED WITH CARRIAGE RETURN ? 


‘WAS IT A ‘Y* RESPONSE ? 
*BR IF Y 
WAS TA 'N’ RESPONSE ? 


3BR IF YES 
sTYPE BAD ENTRY MESSAGE 
zTRY AGAIN 


3PARAMETER TABLE ADDRESS 
3GET_THE PARAMETER ENTRY 
31S THE ‘WRDCNT® VALUE OK ? 


3BR 
3SET ‘WRDCNT’ TO THE MINIMUM VALUE 


;DISPLAY DRIVE STATUS AND SET UP THE OTHER SYSTEM DEVICES THAT 
POWER FAIL 


3THE PROGRAM WILL 


SETVEC: JSR 
JSR 


BNE 
1$: CLR 


PE 
2$: TYPE 


PC, CKCLK 
PC-RMINIT 
4-1, SAVEFG 
#~1 


1$ 
PWRFLG 


#SWO02 ,ASWR 
12$ 

R 

oSYSTAT 


SCRLF 
R4,-(SP) 


USE. PROGRAM RETURN HERE ON 


sSTART THE CLOCK 

INITIALIZE THE RM DRIVER 
3SET THE SAVE REGISTERS FLAG 
sFIRST TIME THRU ? 


: F YES 

RETURNING FROM POWER FAIL ? 
BRANCH 

3 Typegur re DRIVE STATUS TABLE ? 


sBR I 

sDRIVE TABLE POINTER 
1) catia HEADING 
33SAVE R4 FOR TYPEOUT 
33 TYPE DRIVE NUMBER 
3360 see orenyce ASCII 
zeTYPE 2 DIGITCS) 


B 6 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 
905651 .BYTE 0 - SUPPRESS LEADING ZEROS 
75 005652 104401 075231 TYPE BLNKS4 ‘TYP LANK 
us 005656 105764 040164 TSTB BRVSTA(R4) + CHECK DRIVE” $ STATUS 
77 005662 100416 BMI 5 [BR IF UNSAFE 
378 005664 00102 BNE 6$ ‘BR IF ONLINE 
280 005 105764 040174 TSTB DRVTYP(RA) sSEE IF OFFLINE OR NONEXI STENT 
281 005672 001404 BEQ $ <BR IF NONEXISTENT 
282 005674 100006 BPL 4$ ‘BR IF OFFLI 
283 005676 104401 075403 TYPE NOTRM “DRIVE NOT AN RM8O 
384 005702 000433 BR 11$ SCHECK NEXT DRIVE 
286 005704 104401 075420 3$: TYPE NOTPRS :DRIVE NOT PRESENT 
287 005710 000430 BR 11$ SCHECK NEXT DRIVE 
289 005712 104401 075312 4$: TYPE UNTOFF :DRIVE OFFLINE 
290 005716 000416 BR &$ SPRINT DRIVE TYPE 
292 005720 104401 075454 5$: TYPE NOTSAF :DRIVE UNSAFE 
293 005724 000413 BR &$ SPRINT DRIVE TYPE 
295 005726 005737 001444 6$: TST XXDP sLOADED FROM THIS DEVICE ? 
296 005732 001406 BEQ 7$ 7BR IF NO 
297 005734 123704 001444 CMPB —s- XXDP,,R4 *LOADED FROM THIS DRIVE ? 
298 005740 001003 BNE 7$ BR I 
299 005742 104401 075464 TYPE LODEV STYPE "LOAD DEVICE’ 
300 005746 000411 BR 11$ 
301 005750 104401 075323 7$: TYPE _,UNTON :DRIVE ONLINE 
302 005754 104401 075233 8$: TYPE §-BLNKS2 ‘TYPE 2 BLANKS 
307 005760 012737 075520 005770 MOV #SRMBO, 10$ TASSUME ADDRESS CF RM8O MESSAGE 
313 005766 104401 9$: TYPE :TYPE THE DRIVE TYP MESSAGE 
314 005770 000000 10$: .WORD 0 [MESSAGE ADDRESS HERE 
316 005772 005204 11$: INC RG s INCREMENT DRIVE NUMBER/TABLE POINTER 
317 005774 020427 000010 CMP R4,A8. SFINISHED ? 
318 006000 001317 BNE 2$ ‘BR IF 
319 006002 104401 001203 TYPE  ,$CRLF CRLF 
320 006006 12$ 
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1 s INITIALIZE PROGRAM PARAMETERS FOR STARTUP 

4 006 004737 33326 STA: JSR Pc $TKINT s INITIALIZE THE KEYBOARD INTERRUPT HANDLER 
4 00601 O12? 7 02 40 001446 MOV 62740,ENDCON INITIALIZE XFER COUNT(LSB) 

§ 006020 012737 005455 001450 MOV #005455,ENDCON+2 

6 906026 105737 001226 TSTB. —s- SENV ;APT SCRIPT MODE, THEN MAKE IT RUN 2 MIN. 
7 006032 001411 BEQ NO 

8 006034 O12? 7 900001 01476 MOV #1,RATIO :SPEED UP TEST 

9 006042 012737 077777 00144 MOV #77777,ENDCON INITIALIZE QUICK XFER COUNT(LSB) 
10 006050 012737 000027 00145 MOV #27, ENDCON+2 

i 006056 105737 001150 1$: TST8 © $AUTOB :RUNNING IN AUTO MODE ? 

13 006062 901003 BNE 2$ ‘BR IF YES 

14 006064 005737 001336 TST CHGADR SSTART AT 200 ? 

3 006070 003456 BLE &$ NO 

17 006072 005001 2$: CLR R1 :DRIVE # 

18 006074 90900¢ CLR R TAVAIL TABLE INDEX 

19 006076 00500 CLR R SDRIVEM * 

20 006100 005737 001444 3$: TST XXDP SLOADED FROM THI? DEVICE ? 

21 006104 001403 BEQ 4$ ‘BR IF NO 

3¢ 006106 123701 001444 CMPB  =—s- XXDP,,R1 [LOADED FROM THIS RIVE ? 

23 006112 001435 BEQ 7$ :BR IF YES 

24 006114 105761 040164 4$: TSTB DRVSTACR1) SDRIVE ON LINE ? 

25 906120 003432 BLE 7$ NO 

26 006122 110137 067556 MOVB _——R1, GENDPB SGET DRIVE NUMBER 

27 006126 016300 002056 MOV BLKADR(R3),RO  ;LOAD DRESS 

28 006132 004737 015624 JSR PC ,RECALO SRECALIBRATE DRIVE 

29 006136 004737 026630 JSR PC. CLRDPB :C DPB BLOCK 

30 006142 004737 027550 JSR PC.GETID [GET DRIVE (MBA) SERIAL NUMBER 
31 006146 004537 027650 JSR R5.GETADR SRETRIEVE BAD SECTOR FILE 

2 006152 01 4 001566 MOV RO.NEWUNT(R2) :LOAD DPB ADDRESS TO ABAIL QUEUE 
33 006156 004737 027054 JSR PC. DRVPRM SSETUP DRIVE PARAMETER LIMITS 

34 006162 003960 000124 CLR $FIRST(RO) SRESET S$FIRST FLAG FOR FIRST 204 START 
35 006166 005737 037716 TST PWRFLG SRETURNING FROM POWER FAIL ? 

36 006172 001005 BNE 7$ *BRANCH iF YES 

37 006174 112760 177776 000026 MOVB #=2,$PACK(RO) :S COMMAND "WT" (WRITE DATA AND TEST) 
33 006202 004737 017000 JSR PC,WRTPK SETUP. INITIAL PARAMETERS 

40 006206 022322 7$: CMP (R3)+, (R2)+ s INCREMENT INDEX 

41 006210 005201 INC R1 “NEXT DRIVE 

4¢ 006212 0 O17 000007 CMP R1,A7 TALL DRIVES ASSIGNNED ? 

12 Ooes te OO 808? 001336 ano eCLEAR START FLAG 

43 ivesy4 000403 BR $ 

47 006226 012737 000001 001340 8$: MOV #1,CFLAG sDUMMY "CONTROL C' FLAG 

48 eee 005037 037716 9$: CLR PWRFLG SCLEAR POWER FAIL FLAG 


CZRNAAO RM8O PERF EXER MACRO V04.00 14-JAN-82 15:15:58 PAGE 11 
MAIN PROGRAM 


-SBTTL MAIN PROGRAM 





1 

j 006240 005737 001340 MAIN: TST FLAG sKEYBOARD INTERRUPTED ? 

4 006244 091407 BE ‘BR IF NOT 

5 006 46 005737 001520 1$: TST ORDER SANY DRIVES IN ORDER QUE ? 

6 006252 0014 é BEQ $ :BR IF ELSE 

7 006254 000137 007104 JMP IDLE [LET ALL ORIVES FINISH ORDER 

a 60 004737 025254 a: JSR PC,KSR *SERVICE THE KEYBOARD 

- 006264 000240 $: NOP : !! FOR DEBUGGING !! 

1 sCHECK FOR DRIVES TO BE DROPPED 

ig 006266 012703 000010 MAINDA: MOV #8. ,R3 :DRIVE COUNTER 

14 006272 012705 001544 MOV ADDRVS RS TADDRESS OF ‘DROP DRIVE’ TABLE 

15 006276 005715 1$: TST (RS) [SEE IF ENTRY AT PRESENT POSITION 

16 006300 001004 BNE 3$ ‘BR IF THERE IS ONE 

17 006302 005725 2$: TST (R5)+ S INCREMENT TO NEXT TABLE POSITION 

18 006304 005303 DEC R3 [DECREMENT DRIVE COUNTER 

19 006306 001373 E 1$ ‘BR IF MORE TO CHECK 

20 006310 000435 MAINI G0 CHECK FOR NEW ASSIGNED DRIVES 

22 006312 012701 001610 3$: MOV WAVAIL,R1 ZADDRESS OF ‘AVAILABLE DRIVES’ TABLE 

23 006316 005711 4$: TST (R1) TIF AT END OF ‘AVAIL’ TABLE ? 

24 006320 001404 BEQ 5$ *BR IF YES 

25 006322 021115 CMP (R1),(R5) £1$ DRIVE IN "AVAIL® THE TABLE ? 

26 006324 001412 BEQ 7$ [BR IF YES 

27 006326 005721 TST (R1)+ [NO, INCREMENT "AVAIL TABLE ADDRESS 
006330 000772 4$ SAND CONTINUE LOOKING 

30 006332 012701 001632 5$: MOV #WAIT,R1 zADDRESS OF THE ‘WAIT’ BUFFER TABLE 

31 006336 005711 6$: TST (R1) SAT THE END OF ‘WAIT’ TABLE ? 

32 006340 001760 BEQ 2$ [BR IF YES 

33 006342 021115 CMP (R1),(R5) [1S DRIVE IN THE "WAIT® TABLE ? 
006344 001402 BEQ 7$ <BR IF YES 

35 006346 005721 TST (R1)+ [NO, INCREMENT "WAIT® TABLE ADDRESS 

36 006350 000772 BR 6$ SAND CONTINUE LOOKING 

38 006352 011100 7$: MOV (R1),RO :PUT THE DRIVE’S BLOCK ADDRESS IN RO 

39 006354 104401 001203 TYPE ,$CRLF CRLF 

0 006 104401 076003 TYPE DEASSG [TYPE "DRIVE DEASSIGNED’ 

1 006 004737 023714 JSR PC, SUMARY [TYPE THE DRIVE'S PERFORMANCE SUMMARY 

42 006370 104401 075617 TYPE STARS STYPE ‘eeee,, ETC’ 

43 006374 005015 CLR R5) *CLEAR THE "DROP DRIVE’ TABLE ENTRY 

44 006376 006737 020750 JSR BC. CMPRES [COMPRESS THE RESPECTIVE TABLE 

43 006402 000737 BR 2 *SEE IF ANY MORE DRIVES 

47 ;LOOK FOR DRIVES TO BE ASSIGNED 

49 006404 012703 000010 MAIN]: MOV #8. .R3 :DRIVE COUNT 

50 006410 005001 CLR R1 SASSIGN LIST INDEX 

51 00641 005002 CLR R s*AVAIL® INDEX 

32 006414 00500 CLR R [NEW DRIVE INDEX 

5 006416 005765 001566 1$: TST NEWUNT (RS) *NEW DRIVE IN THIS POSITION 

54 0064 1008 BNE «SBR IF THERE IS 

55 006424 005725 2s: TST (R5)+ S INCREMENT RS 

56 0064 905201 INC R1 * INCREMENT ASSIGN INDEX 

57 006430 005303 DEC R3 SDECREMENT DRIVE COUNT 


CZRNAAO RMBO RMBO PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 11-1 SEQ 0069 
58 006432 001371 BNE 1$ :BR IF MORE DRIVES 
33 0064 32 BR MAIN2 [START OPERATIONS FOR THE AVAILABLE DRIVES 
61 006436 104401 001203 3$: TYPE +SCRLE Cele 
6 006442 104401 075304 TYPE sUNTHS RIVE® 
63 006446 010146 MOV R (Sp) 7;SAVE R1 FOR TYPEOUT 
g3TYPE DRIVE NUMBER 

006450 104403 TYPOS £:G0 TYPE=-OCTAL ASCII 

00645 002 BYTE 2 t:TYPE 2 DIGIT(S) 

00645 “BYTE :;SUPPRESS LEADING ZEROS 
64 006454 104401 076053 TYPE ,ASGND : T 
65 006460 005762 001610 4$: TST AVAIL (R2) SAT END OF AVAILABLE TABLE 
66 006464 00140 BEQ § <BR IF YE 
67 006466 00572 TST — (R2)4 3 INCREMENT AVAILABLE TABLE INDEX 
68 00647 7 BR CONTINUE LOOKING FOR END OF TABLE 
69 ag C3 B1636¢ 001368 001610 5$: MOV NEUUNT (RS? AVAIL) sMOVE ADDR OF vale INTO AVAIL LST 
70 0065 306 1566 CLR NEWUN DRIVE OUT OF NEW DR 
71 006504 156137 040300 001542 81SB MEU CRID ASNLST set DRIVE ASSIGNED INDICATOR 
72 006512 005037 032012 CLR AUTLST :CLEAR AUTO AS 
73 006516 005722 TST (R2)+ S INCREMENT AVAILABLE TABLE POINTER 
th 006520 000741 BR 2s :LOOK FOR MORE DRIVES 
76 :GET PARAMETERS, BUFFER SPACE, AND START ORDERS FOR DRIVES IN 
a ‘THE "AVAILABLE*® QUEUE 
79 006522 00500 MAIN2: CLR R2 :START FROM THE FIRST LOCATION 
80 006524 105737 001542 TSTB  ASNLST ANY DRIVES ACTIVE ? 
81 006530 001025 BNE :BR IF YES 
82 006532 105737 001150 TST8 $AUTOB ZRUNMING IN AUTO MODE ? 
83 006536 001020 BNE 1$ ‘BR IF YES 
84 006540 O12? 7 000001 001340 MOV #1,CFLAG [DUMMY "CONTROL C° FLAG 
85 006546 013737 001314 001352 MOV HZ. ONESEC ZRESTORE ONE SECOND COUNTER VALUE 
86 006554 005037 001 CLR H [CLEAR THE *S COUNTER 
87 006560 005037 001346 CLR MINUTE SCLEAR THE MINUTE'S COUNTER 
88 006564 005037 001350 CLR SECOND [CLEAR THE SECOND'S COUNTER 
89 006570 005037 001466 CLR INTRVL+2 CLEAR INTERVAL COUNTER 
90 006574 104401 077103 TYPE NODRVS TYPE "NO DRIVES ASSIGNED’ 
31 006600 000137 031742 1$: JMP $GET42 <GIVE CONTROL TO MONITOR 
3 006604 005762 001632 2$: TST WAIT(R2) ZANY DRIVES WAITING FOR THE BUFFER ? 
9% 006610 14 BEQ $ NO 
95 006612 016200 001632 MOV WAIT(R2), RO LOAD RO WITH THE DPB ADDRESS 
%6 00661 005046 CLR *CLEAR THE STACK FOR BUFFER REQ 
9 737 016242 JSR PC EETBUF :CALL TO GET THE BUFFER RT. 
98 4 12660 $0006 MOV (SP)+, SBUF(RO) IF O,BUFFER IS STILL NOT AVAILABLE 
99 0066. 14 BEQ [BRANCH IF NO BUFFER AVAILABLE 
100 006632 005 000122 CLR ShexT (RO? *CLEAR PARAMETER SELECT FLAG 
101 005: 001 CLR SFAIR(RO ) [CLEAR THE FAIR FLAG 
108 166 JSR C.F SFILL THE BUFFER 
10 7 1671 J pe GobRIV *SET COMMAND AND GO 
104 006652 01 205 152 MOV #ORDERG,RS *PUT THE WAIT QUE INTO ORDER QUE 
105 5 ce 3$: TST (R5)¢ QUE AVAILABLE ? 
106 13 2 BNE $ ‘BR IF NO 
10 1004 MOV RO,-(R5) [LOAD THE DPB ADDRESS | INTO THE ORDER QuE 
108 12701 001632 MOV MWAIT, SREMOVE THE DRIVE FROM THE ‘WAIT’ QUE 
109 0066 9 2 1 ADD R2,R1 SOFFSET THE QUE TION 
110 00667 7 020750 JSR PC. CMPRES [COMPRESS THE QUE 
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MAIN 


ee ad ed ed od ad ed 
DONAVULSWN— 
ANN =3 | 
ae ae con 
MOANGSN SO Roo 


eee ee ee ce cre ce ee ce ced ed cd ced ed edd ed eed ed 
ANN 
iy 
ORSS 


seseee sseeseeeese §2 8 


SASSY 
=3333823 


== 
oO 


8838s 


EHASSRUS RE VBVRORONTS 
3 
i=) 


ee ee ee ce eed ed ed ed ed ed ed ed od = ed 


RAR 


eet nd ah eb a aD 


WEALERISSSNSKARANAS SSS 


eh ek ek at et od ed ee oh 


00074 
009738 
00074 


005737 
001075 


38 


238 
Su 


3 


S gessezss 
RB SS2avangy 
N Sespesss = 


s~~ros 
Susesn 


71 


o 4 4 
$0438 


005760 


So oo 
= 


001610 
020750 


001520 


000016 


000106 


BR 
4$: TST 
BR 


5$: TST 
BNE 


6$: TST 


7$: 


11$: TST 


12$: INC 


13$: TST 


14$: ey 
15$: MOV 
ADD 
JSR 
BR 
sWAIT FOR A 
IDLE: MOV 
1$: MOV 


BEQ 
2s: TST 


2s 
(R2)+ 
2s 


ORDERQ 
IDLE 


R2 

AVAIL (R2) 

7$ 

IDLE 
AVAIL(R2) ,RO 
— 
$PACK (RO) 


PC ,WRTPK 
10$ 


PC..GENPAR 
PC re 


GETBUF 
(SB, $BUF (RO) 


SFAIR(RO) 
+ SFAIR(RO) 


(R2)+ 
#AVAIL RI 
PC. CMPRES 
6$ 


COMMAND TO FINISH 


#ORDERQ,R1 
(R1)+,R0 


STATUS (RO) 


sBRANCH_IF 


DONE 
sCHECK THE NEXT QUE 
LOOPING BACK 


sANY OUTSTANDING ORDERS ? 
BR IF YES 


on DRIVE TABLE POINTER 


3BRANCH 


IF a 
s CONTROL BLOCK ADDR IN RO 
ee ee BEEN SELECTED ? 


co IFT 


Y DRIVES WAITING FOR PARAMETERS 
CH IF ANY 


HEY HAVE 
* OR ‘W* COMMAND FOR THIS DRIVE ? 


NO 
$GET DATA_PARAMETERS 


GET THE BUFFER 


360 weg THE PARAMETERS 
3LOAD T PARAMETERS JUST GENERA 


MAKE. ROOM. ON 
GET 


THE 
BUFFER 
>MOVE BUFFER ADDR TO DPB 


TED 
STACK FOR THE BUFFER ADDR 


BR IF_°O° ADDR (NO BUFFER) 
FER 


FILL THE 


BUF 
3CL LEAR PARAMETER SELECT FLAG 
FAIRNESS’ COUNT 
spur CURRENT DPB IN DRIVER 


ADDRESS OF ORDER QUE IN R5 
e QUE ? 


3BR_IF NOT 
3PUT BLOCK ADDRESS INTO QUE 
OOKING 


CONTINUE L 


LOAD int 


CH 
SLOAD IN 


i INCREMENT THE FAIR COUNT 
Aline BUFFER Is NOT AVAILABLE? 
P Wor OVER THREE TIMES 
E WAIT QUE 
AN AVAILABLE LOCATION 2 ? 


NTO WAIT QUE 
REMOVE THE DPB FROM AVAILABLE QUE 


3 INCREMENT INDEX 
H BACK TO FIRE aaa 


CH 
S AVAL LABLE* TABL 


[FORM ADDRESS OF LAST ENTRY 
ZCOMPRESS THE TABLE 


CONTINUE LOOKING 


sADDRESS OF THE ORDER QUE IN R1 
PUT BLOCK ADDRESS INTO RO 


BR_IF END OF QUE 
7SEE IF DRIVE FINISHED 


SEQ 0070 


i Sam ¥ 
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Ss 


Ssesessssesess 
3 
a 


NNN 


SVs 


geseesees 
NIMIPIPINYNG 
SOSRSaNoN 


eee ee ee ee ek et ed ed ed ed ad ed = od od = 


gs 


1775 


GIs 


-—0o— l=] 
Sesesssssse S328 
PVR NOLNON we NSS 
wovssSutse-~s INES NINIO 
NNO NNWNON  NNUIOOUIN 


075525 
Be36e6 
075566 


3$: 


171744 4$: 


5$: 


=(R1) 
R1,-(SP) 
4% SSTATIS 


PROCES 
SSSEnB (nO) 
PC, 

PC; SEOP 
(SP)+,R1 
#AVAIL,RS 
(R5)+ 

oy (RS) 
PC, CMPRES 
PC -RELBUF 
#SW02,2SWR 
STATIN 

5$ 

STATIN 
ASNLST 
REPHD 

PC, STATPR 
»STAR3O 

MAIN 





SEQ 0071 


3BR_ IF DRIVE NOT FINISHED 
3BACK UP THE QUE POINTER 


VE THE QUE ADDRESS 
SACCUMAATE STATISTICS FOR DRIVE IN RO 
CLEAR SKIP_SECTORING 


ENABLED 
AR THE BAD TRK/SEC ERROR INDICATOR 
iSEE iF ANY "OP PASS HAVE TOO MANY ERRORS 


ERESTORE T TABLE 
ADDRESS. OF. THE, “AVAIL ABLE 
1S 17 THE END OF THE ‘AVAIL? TABLE ? 


3BR 
MOVE ha INTO THE ‘AVAIL® TABLE 
[COMPRESS THE ORDER QUE 

RESTORE BUFFER 


i TYPE PERFORMANCE SUMMARY 
TIME 10, TYPE THE PERFORMANCE SUMMARY ? 


sCLEAR THE INDICATOR 
ZANY DRIVES ASSIGNED ? 


STYPE PERFORMANCE REPORT HEADING 
i TYPE THE S Y 

TYPE *‘eane,. ETC’ 

;CONTINUE THE LOOP 


i San Y 
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MAIN 


Seessesee 
BERANE 


s 


“INN 


Sess 
FOr 


WONAVSWN “OOOVNOUS WN 


geeese 


oeK 


ss 
es 
A 


REBLESSVSVRTRUGLS 


Ssssss 


04 
7406 


&* 
w 


S888ssEss 
wRSS 


SELLS LEVBLESRALE 
£5 


See 


NNEN 


ANN 


001324 
000016 
100000 


040000 
040000 


013062 
O13154 
000002 


013240 


=] 
o~ 
= 
s 


PoPoPoPoP 
NN 
REALS 
QoLsfkLN 


002140 
002140 
002152 


171622 


000016 


000016 
000016 
000016 


sPROCESS THE COMMAND TERMINATION 


PROCES: MOVB 
TST 


BIT 
BNE 


(RO) ,DRVNO 
STATUS (RO) 


ERPROG : 
#B81T15,$RMCS1(ROS 
#81714, $RMCS1(ROS 
ERPROC : 
#81T14,$RMDS(RO) 
ERPROC : 


F sE 


sDRIVE NUMBER FOR ANY ERROR MESSAGES 
3SEE_IF DRIVER SIGNALED AN ERROR 


OR 
;SEE_IF ‘SC* SET 


F NOT SET 


E 
sSEE IF ‘TRE® SET 
pee IF “ERR® SET 


ZNO ERRORS DETECTED IN REGISTERS, DO SOME CHECKING ANYWAY 


1$: JSR 


2s: RTS 


PC..CKERR 3 CHECK 
PC, CKBUS 3 CHECK 
gut o@SWR 3D0 DAT. 
PC, CMPAR 

PC 


ERROR BITS 
BUS ADDRESS & WORD COUNT 
A COMPARE ? 


: NO 
3COMPARE DATA W/O ERROR 
RETURN 


;COMMAND TERMINATED WITH AN ERROR = PROCESS THE ERROR 


ERPROC: BIT 
BEQ 


JMP DONE’ BIT SET 
sPROCESS COMMAND COMPLETION WITH ‘ERROR’ © "DONE NOT’ BITS 
ERPRC1: 
BIT #81T09,$TATUS(RO) = TIMEOUT? 
. BNE SWTIM : s 

BIT #O1T141B1T01 STATUS(RO) :DRIVE WENT OFFLINE ? 
BIT #B1T2,$TATUS(RO)” “PORT REQUEST TIME OUT ? 
BNE PRTIM : IT DID 
RTS TERROR. RETURN 

:SOFTWARE TIMEOUT OCCURRED 

SWTIM: JSR PC LINE :PRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EM SPRINT THE TIME OUT MESSAGE 
JSR BC LINER SPRINT LINE 2 OF ERROR MESSAGE 
JSR PC LINE SPRINT LINE 3 OF ERROR MESSAGE 
JSR PC, LINES [PRINT LINE 4 OF ERROR MESSAGE 
JSR pC. INCTOT + INCREMENT TOTAL ERROR COUN 
JSR PC. LINE SPRINT LINE 7 OF ERROR MESSAGE 
RTS PC RET 

sDRIVE WENT OFFLINE 

OFLIN: TYPE SCRLF rCReL 
JSR PC LINE [PRINT LINE 1 OF THE ERROR MESSAGE 
DISPLY ,EM14 SPRINT OFFLINE MESSAGE 
JSR BC LINE? SPRINT LINE : OF THE ERROR MESSAGE 
JSR PC.LINE SPRINT LINE 3 OF THE ERROR MESSAGE 


#81T07,STATUS(RO) 
ERPRC1 


3BR IF 
sPROCESS ERROR WITH ° 


;DONE BIT SET ? 


COMPLETE NORMALLY 





SEQ 0072 


i ton) 


1 6 
CZRNAAO RMBO PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 12-1 SEQ 0073 
MAIN PROGRAM 
101 007472 004737 022324 JSR PC,LINES sPRINT LINE 4 OF THE ERROR MESSAGE 
10¢ 7476 004737 024740 JSR pC. INCTOT SINCREMENT TOTAL ERROR COUNT 
103 007502 004737 022746 JSR PC,LINE SPRINT LINE 7 OF THE ERROR MESSAGE 
104 007506 000137 04 [DROP THE DRIVE 
106 sPORT REQUEST TIMEOUT ERROR 
108 007512 004737 021134 PRTIM: JSR PC,LINE1 ;TYPE LINE 1 OF THE ERROR MESSAGE 
109 007516 104414 070404 DISPLY ,EM1 [PRINT PORT TIME OUT MESSAGE 
112 007522 004737 gl214 SR BC LINER STYPE LINE 2 OF THE ER 
007526 004737 021654 JSR PC. LINE [TYPE LINE 3 OF THE ERROR MESSAGE 
007532 004737 022324 JSR PC.LINES [TYPE LINE 4 OF THE E 
113 007536 004737 024740 JSR PC; INCTOT SINCREMENT TOTAL ERROR COUNT 
114 007542 004737 022746 JSR PC. LINE :TYPE LINE 7 OF THE ERROR MESSAGE 
' 13 007546 000207 RTS PC RETURN 
"7 PROCESS COMMAND COMPLETION WITH ‘ERROR’ & ‘DONE’ BITS SET 
135 007550 032760 000020 000016 DONE: BIT #9104 , STATUS (RO) ;UNSAFE OCCURRED 
126 007 000137 012532 JMP UNSAF [REPORT UNSAFE 
128 007564 032760 040000 002154 1S: eI #81714 ,SRMERI (RO) - ui QNSAFE OCCURRED 
1$6 007574 193 012532 JMP UNSAF [REPORT UNSAFE 
13 007600 032760 040000 002150 2s: BIT #B1T14,$RMCS2(RO) s1S "WCE* SET ? 
133 007 001402 BEQ BRAN NOT SET 
134 007610 137 010546 JMP WCKER [WRITE CHECK ERROR 
136 007614 052760 040000 002152 3S: gir #1T14,$RMDS(RO) a ; CHECK "ERR® 
138 007624 $0093? 012272 JMP TRFER SPROCESS 'TRE* 
140 007630 052760 000400 002154 4$: BIT #81708, SRMERI (RO) - g tHCRC! SET? 
142 007640 $0013? 011054 JMP HCRCER SPROCESS "HCRC 
144 007644 952760 000020 002154 5$: eI #81706, $RMER1 (RO) s.FT* SET? 
146 54 aks 011232 JMP CKFMT SCHECK FORMAT ERROR 
148 00760 o5r288 000200 002154 6$: BIT 481107 .SRMERT (RO) gre SET? 
130 oO 7er8 1 § 011406 JMP CKHCE [CHECK "HCE* ERROR 
132 007 7% 032760 020000 002154 7$: eI #81113, SRMER1 (RO) uireht SET? 
154 007704 $p0139 011666 JMP OPIER SREPORT OPI! 
136 007710 032760 000010 002154 8$: BIT #8113, $RMER1(RO) -"PAR® SET? 
15 907716 140 BEQ :BR IF NOT SET 
158 007720 000137 012014 JMP PARER [REPORT ‘PAR 
160 007724 032760 000040 002154 9%: BIT #8175, SRMERT (RO) -"WCF* SET? 
161 90 001402 BEQ 10$ sBR IF _A‘T SET 
162 007734 137 012434 JMP WCFER SREPORT WCF 
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10$: BIT #1110, $RMER1 (RO) s"IAE* SET? 
BEQ 11 sBR IF NOT SET 
JMP IAEER SREPORT ‘IAE 
11$: BIT #81711, $RMER1(RO) -"WLE* SET? 
BEQ 12$ :BR IF NOT SET 
JMP WLEER *REPORT ‘WLE® 
12$: BIT #B1T9, $RMER1(RO) :*"AOE*® SET? 
BEQ :BR IF NOT SET 
BIT #B1T10,$RMDS(RO) -"LBT® SET? 
BEQ 13$ :BR IF NOT SET 
RTS PC :"AOE' & "LBT’ SET, EXIT 
13$: BIT #81712, $RMER1 (RO) -SEE IF "DTE* SET 
BEQ 14$ 3 T 
JMP DTEER SREPORT 'DTE* ERROR 
14$: TST SRMER1 (RO) :SEE IF "DCK* SET 
BPL 15$ :BR IF 
JMP DCKER SPROCESS ‘DCK’ 
15$: BIT #B1T14,$RMER2(RO) -"SKI° SET 
BNE 16$ - “BRANCH IF SKI SET 
BIT #B1T15,$RMER2(RO) :"BSE* SET ? 
BNE 17$ sBRANCH IF SO (NO, OTHER ERROR) 
JMP DRVER *REPORT ERROR 
16$:  JMP SKIER ;REPORT SKI ERROR 
17$: RTS PC SEXIT FROM ERROR ANALYSIS ROUT. 
:PROCESS DATA ("DCK") CHECK ERROR 
DCKER: JSR PC, SPOTCK sSEE IF ERROR AT A BAD SECTOR ON THE DISK 
RTS PC t1T IS, DON'T REPORT IT 


BIT #ECH,SRMER1(RO) ;ECH ERROR SET ? 


BEQ 1$ : 
CMP #10040, $RMEC1(ROS 
OBE inet . 
DISPLY bas> 
BR *$ 

18: CMP 
BHI 
TST SRMEC1(RO) 

BEQ $ 

TST $RMEC2(RO) 
oe PC,LINE1 
DISPLY ai? 

2$: JSR PC,LINE1 
DISPLY ,E 

3$: JSR PC ,LINE2 


SRMEC1(RO) ,#10040 


“OTHERWISE RPEC1=10040 
sREPORT ECC LOGICAL FAILURE 
TFIRST LINE OF ERROR MESSAGE 
TECH ERROR - ECC UNCORRECTABLE 


: ves 
SPOSITION COUNT 0 ? 


3BR I 
sVALUE IN PATTERN REGISTER ? 
BR_IF YES 


2BR I 
zTYPE FIRST LINE OF ERROR MESSAGE 
sTYPE *ECC LOGIC ERROR* 


zTYPE FIRST LINE OF ERROR MESSAGE 
sTYPE “ECC 403° ERROR' 
3TYPE LINE 2 OF ERROR MESSAGE 


:1S POSITION COUNT OVER MAXIMUM ? 





SEQ 0074 


ie 
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ZRNAAO RMBO PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 12-3 SEQ 0075 Ci 
IN PROGRAM Mi 
10 02474 PC, INCTOT sINCREMENT TOTAL ERROR COUNT 
331 bioety g 001330 OS Ae TRY sRETRY COUNT 
: 10616 a690e8 PC. SRETRY SRETRY THE COMMAND 
2 010 4 SRETRY WAS NOT SUCCESSFUL 
224 010226 022706 PC,LINE6C SPRINT "CORRECTED ON N RETRIES' 
$25 010230 . S$ ‘FINISH THE ERROR REPORT 
227 0102 022714 PC LINED SPRINT "UNCORRECTABLE AFTER N RETRIES' 
228 0102 022746 PC.LINE STYPE LINE 7 OF ERROR MESSAGE 
09 010242 RETURN 
331 IN THE ECC REGISTERS ARE CORRECT, REPORT ‘DCK" ERROR 
233 010244 021134 PC ALINE! sPRINT LINE 1 OF ERROR MESSAGE 
234 010250 070461 »EM21 [DATA CHECK ERROR 
335 010254 
237 010254 021214 PC,LINE :PRINT LINE 2 OF ERROR MESSAGE 
238 010260 021654 PC,LINE “PRINT LINE 3 OF ERROR MESSAGE 
239 010264 022324 PC, LINES sPRINT LINE 4 OF ERROR MESSAGE 
240 010270 015236 PC PRTBAD “SEE IF BAD SECTOR TO BE PRINTED 
241 010276 110100 #81T15'BIT12!BIT06,MASK ;LOAD ERROR MASK 
242 010302 010100 #B1T12'BIT06,S$RMERI(RO) :CHECK "DTE® & ‘ECH® 
243 010310 1$ 3BR IF SET 
244 010312 004737 022666 PC,LINE6 SPRINT "SECTOR IS ECC CORRECTABLE’ 
245 010316 000460 4 [FINISH THE ERROR REPORT 
346 010320 012737 000020 #16. ,RETRY [RETRY COUNT 
251 010326 004737 016710 PC,GODRIV RETRY 
252 010332 005760 0 $TATUS(RO) :TEST FOR DONE 
253 010336 001775 3$ “BR IF NOT DONE 
254 010340 100057 11$ ‘BR IF NOT ERROR 
255 010342 032760 000200 #B1T7,$TATUS(RO) *SEE IF COMMAND TERMINIATED NORMALLY 
256 010350 001006 :BR IF NOT 
257 010352 004737 024740 PC, INCTOT S INCREMENT TOTAL ERROR COUNT 
258 010356 104414 074343 ‘ "DIFFERENT ERROR DURING RETRY’ 
259 010362 000137 007356 ERPRC1 [SEE WHICH ERROR 
261 010366 033760 001326 MASK, SRMER1(RO) ;LOOK AT CURRENT ERROR 
262 010374 001412 “BR IF DIFFERENT ERROR 
263 010376 032760 010100 #B1T12'BIT6,$RMER1(RO) ;"ECH’ OR "DTE* STILL SET ? 
264 010404 001421 sBR IF NEITHER SET 
265 910406 105237 001331 RETRY+1 S INCREMENT RETRY COUNT 
266 01041 123737 001330 RETRY,RETRY+1 :DONE ? 
267 010420 001 542 2$ 7BR IF NOT 
278 010422 004737 023170 PC, LINES [PRINT LINE 8 OF ERROR MESSAGE 
279 010426 004737 024644 PC. INCHRD SINCR "HARD® ERROR COUNT 
280 010432 004 7 024740 PC. INCTOT S INCREMENT TOTAL ERROR COUNT 
281 010456 737 022746 *LINE? *PRINT LINE 7 OF ERROR MESSAGE 
282 010442 004737 015236 PC PRTBAD SPRINT THE BAD SECTOR 
383 010446 000436 14$ *CLEAN UP AND RETURN 
288 010450 004737 022666 PC,LINE6 :PRINT "SECTOR IS ECC CORRECTABLE’ 
290 010454 004737 02 624 PC.LINE5B SPRINT LINE 5B OF THE ERROR MESSAGE 
291 010460 004737 024620 PC. INCSOF S INCREMENT ‘SOFT® ERROR COUNT 
33 010464 004737 014472 PCECC SCORRECT THE ERROR USING ECC AND CHECK IT 
010470 000407 128 ‘COMPARE THE BUFFER 


L 6 
CZRNAAO RM8O PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 12-4 SEQ 0076 
MAIN PROGRAM 


PR 

294 

295 010472 004737 022714 10$: JSR PC,LINE6D PRINT *UNCORRE CTABL E AFTER N RETRIES' 

336 010476 000753 BR 7$ S INCREMENT ERROR COUNT 

298 010500 004737 022700 11$: JSR PC,LINEGA :PRINT LINE 6A OF ERROR MESSAGE 

299 010504 004737 024620 JSR PC. INCSOF SINCREMENT °SOFT® ERROR COUNT 
010510 012737 000001 001356 12$: MOV #1. FRSTER SET PROCESSING SDCKER! INDICATOR 

301 010516 004737 015244 JSR PC. CMPARD [COMPARE THE BUFFER 

302 010522 105737 001357 TSTB ss FRSTER#1 TERROR IN COMPAR 

303 010526 100406 BMI 14$ ‘BRANCH IF ERROR 
010530 004737 024740 JSR PC, INCTOT 2 INCREMENT TOTAL ERROR COUNT 

305 010534 104414 074560 DISPLY ,LIN "DATA COMPARE OK* MESSAGE 

306 010540 004737 022746 13$: JSR PC LINE? [PRINT LINE 7 OF ERROR MESSAGE 

307 010544 000207 14$: RTS PC RETURN 

309 ;WRITE CHECK ERROR PROCESSING 

311 010546 032760 100000 002154 WCKER: BIT #8115, $RMER1 (RO) -SEE IF "DCK" SET ALSO 

312 010554 001034 BNE 

313 010556 004737 021134 JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 

314 010562 104414 070565 DISPLY ,EM23 *PKINT WCE & DCK or 

315 010566 005037 001326 CLR SK [CLEAR ERROR MASK 

318 010572 004737 021214 JSR PC,LINE2 SPRINT LINE : OF ERROR MESSAGE 
010576 004737 021654 JSR PC.LINES SPRINT LINE 3 OF ERROR MESSAGE 
010602 004737 022324 JSR PC, LINES *PRINT LINE 4 OF ERROR MESSAGE 
010606 004737 022414 JSR PC, LINES SPRINT LINE 5 OF ERROR MESSAGE 

319 010612 004737 024740 JSR pC. INCTOT INCREMENT TOTAL ERROR COUNT 

320 010616 012737 000003 001330 MOV #3.RETRY *RETRY LIMIT 

331 010624 004737 015744 JSR PC. $RETRY SRETRY THE OPERATION 

322 010630 000403 BR 1$° RETRY YNSUCES SFUL 

323 010632 004737 022706 JSR PC,LINE6C PRINT "CORRECTED ON N RETRIES' 

32h 010636 000501 BR 10$ {FINISH PROCESSING THE ERROR 

326 010640 004737 022714 1$: JSR PC, LINE6D :PRINT “UNCORRECTABLE AFTER N RETRIES' 

327 010644 000476 BR 10$ [FINISH PROCESSING THE ERROR 

328 010646 004737 020764 2$: JSR PC, SPOTCK [SEE IF ERROR AT BAD SECTOR ON THE DISK 

329 010652 000477 BR 11$ SEXIT IF AT SECTOR 

330 010654 004737 021134 JSR PC, LINE SPRINT LINE 1 OF ERROR MESSA SE 

331 010660 012737 070512 010706 MOV HEM22 ,4 ASSUME THAT gMe2 \WILL BE PRINTED 

332 010666 032760 040000 002150 BIT #BIT14, SRncs2cROS “DID "WCK' ALSO SET ? 

333 010674 001003 BNE IF 1 Bip 

334 010676 012737 071413 010706 MOV #EM37,4$ 3MESSAGE FOR "DCK® AND "WCK' NOT DURING 

336 010704 104414 3$: DISPLY *TYPE THE ERROR MESSAGE 

37 010706 000000 4$: .WORD 0 SMESSAGE ADDRESS GOES HERE 

340 010710 004737 021214 JSR PC ALINE? SPRINT LINE ; OF ERROR MESSAGE 
010714 004737 021654 JSR PC,LINE [PRINT LINE 3 OF ERROR MESSAGE 
010720 004737 022324 JSR PC-LINES SPRINT LINE 4 OF ERROR MESSAGE 
010724 004737 022414 JSR PC-LINES ;PRINT LINE 5 OF ERROR MESSAGE 

341 10 032760 000100 002154 BIT #81T06,$RMER1 (ROS CH SET 

3 010736 001441 BEQ 10$ FINISH, PROCESSING THE 7 ERROR 

343 010740 012737 000020 001330 5$: MOV .#16.,RETRY “RETR 16 (10) 

344 010746 004737 016710 6S: JSR PC,GODRIV RETR TT oman 

345 010752 005760 000016 7$: TST STATUS (RO) COMMAND. FINISHED ? 

bk teed 0b 0408 Bal hs tBR tf F ERR RROR ON COMMAND 

348 010762 105237 001331 INCB -RETRY#1 ‘INCREMENT RETRY COUNT 


CZRNAAO RMBO PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 12-5 SEQ 0077 
MAIN PROGRAM 
349 010766 004737 022706 JSR PC,LINE6C :PRINT "CORRECTED ON N RETRIES’ 
$30 010772 000423 BR 10$ *FINISH ERROR PROCESSING 
33¢ 010774 105237 001331 INCB—- RETRY*1 y INCREMENT RETRY COUNT 
353 011000 123737 001330 001331 CMPB  =s RETRY,RETRY#1 =: ? 
354 011006 001714 BEQ 1$ “BR IF AT RETRY LIMIT 
355 011010 032760 100000 002154 BIT #B1T15,$RMER1 (ROS :"DCK" SET 
356 011016 001407 BEQ 9 “BR IF NOT = DIFFERENT ERROR 
357 011020 032760 000100 002154 BIT #B1T06,$RMER1 (ROS -"ECH’ ALSO SET ? 
358 011026 001347 BNE $ : IT 1S, RETRY COMMAND 
359 011030 004737 022706 JSR PC ,LINE6C “PRINT "CORRECTED ON N RETRIES' 
360 011034 000402 BR 10$ SFINISH PROCESSING ERROR 
362 011036 004737 023170 9$: JSR PC,LINES :PRINT LINE 8 = ‘DIFFERENT ERROR ' 
363 011042 004737 024740 10$: JSR PC. INCTOT S INCREMENT TOTAL ERROR COUNT 
364 011046 004737 022746 JSR PC. LINE7 [FINISH THE ERROR MESSAGE 
365 011052 00020 11$: RTS PC RETURN 
367 sREPORT *HCRC' ERROR 
369 011054 004737 020764 HCRCER: JSR PC, SPOTCK :SEE IF ERROR AT BAD SECTOR 
370 011060 000446 BR 3$ TEXIT IF IT 
371 011062 004737 023254 JSR PC ,READDR TREAD ERROR SECTOR HEADER 
372 011066 004737 015652 JSR PC .READHD [GET THE HEAD INFORMATION 
373 011072 004737 021134 SR C°LINE1 [PRINT LINE 1 OF ERROR MESSAGE 
374 011076 104414 070440 DISPLY ,EM20 [REPORT "HCRC 
375 011102 004737 021214 SR PC,LINE2 SPRINT LINE 2 OF ERROR MESSAGE 
376 011106 004737 021654 JSR PC.LINES [PRINT LINE 3 OF ERROR MESSAGE 
377 011112 004737 022324 JSR PC, LINES [PRINT LINE 4 OF ERROR MESS. 
378 011116 004737 022556 JSR PC.LINESA [PRINT THE HEADER INFORMATI 
384 011122 004737 024620 1$: JSR PC. INCSOF SINCREMENT '"SOFT® ERROR COUNT 
385 011126 004737 024740 JSR PC. INCTOT S INCREMENT TOTAL ERROR COUNT 
386 011132 012737 000400 001326 MOV #BIT8, MASK ‘SET ERROR MASK 
387 011140 012737 000003 001330 MOV #3,RETRY SRETRY LIMIT 
388 011146 004737 015744 JSR PC. $RETRY SRETRY COMMAND 
389 011152 000405 SRETRY NOT SUCESSFUL 
390 011154 004737 022706 JSR PC,LINE6C SPRINT "CORRECTED ON N RETRIES' 
391 011160 004737 022746 JSR PC-LINE? [PRINT LINE 7 OF ERROR MESSAGE 
392 011164 000404 BR 3$ SEXIT 
394 011166 004737 022714 2$: JSR PC,LINE6D :PRINT "UNCORRECTABLE AFTER N RETRIES’ 
395 011172 004737 022746 JSR PC. LINE? SPRINT LINE 7 OF ERROR MESSAGE 
396 011176 000207 3$: RTS PC RETURN 
398 :REPORT DRIVE ERROR 
400 011200 004737 021134 DRVER: JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
401 011204 104414 oot bas DISPLY [REPORT DRIVE ERROR 
402 011210 004737 021214 JSR BC LINE [PRINT LINE 2 OF ERROR MES 
403 011214 004737 021654 JSR PC.LINE [PRINT LINE 3 OF ERROR MESSAGE 
404 011220 004737 024740 JSR PC; INCTOT INCREMENT TOTAL COUN 
405 011204 004737 022746 JSR PC.LINE? ‘PRINT LINE 7 OF ERROR MESSAGE 
406 011230 000207 RTS PC RETURN 
408 sPROCESS FORMAT ("FER") ERROR 


409 
410 011232 032760 000400 002154 CKFMT: BIT #8178, $RMER1(RO) z*HCRC* SET ON ORIGINAL ERROR ? 
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N 6 


411 011240 001402 _ BEQ 1$ :BR IF NOT SET 
aie 011242 000137 0.054 JMP HCRCER SREPORT HCRC ERROR 
414 011246 004737 023254 1$: JSR PC,READDR 3GET CORRECTED TRACK & SECTOR ADDRSSES 
415 011252 004737 015652 ’ JSR PC -READHD “READ HEADER 
416 011256 032737 000400 067612 BIT #B1T8,GENREG+RMER1 :"HCRC* SET WHEN HEADER READ? 
417 011264 00100 BNE sBR IF "HCRC' SET 
418 011266 000137 012166 JMP FMTER <NO, ERROR IS "FMT" ONLY 
420 011272 004737 020764 2$: JSR. «PC, SPOTCK :SEE IF ERROR AT BAD SECTOR ON THE DISK 
421 011276 00044 BR SEXIT IF IT I 
42¢ 011300 004737 021134 R PC LINE [PRINT LINE 1 OF ERROR MESSAGE 
423 011304 104414 070644 DISPLY ,EM24 SHEADER READ ERROR - FMT BIT DROPPED UP 
424 011310 004737 021214 SR C,LINE SPRINT LINE 2 OF ERROR MESSAGE 
425 011314 004737 021654 JSR PC.LINE [PRINT LINE 3 OF ERROR MESSAGE 
426 011320 004737 022324 JSR C; LINES *PRINT LINE 4 OF ERROR MESSAGE 
432 011324 004737 022556. 3$: JSR PC.LINESA :DISPLAY HEADE 
433 011330 004737 024620 JSR PC. INCSOF S INCREMENT SOFT ERROR COUNT 
434 011334 004737 024740 JSR INCTOT S INCREMENT TOTAL ERROR COUNT 
435 011340 012737 000020 001326 MOV #BIT4 MAS ?SET ERROR MASK 
436 011346 012737 000003 001330 MOV #3,RETRY SRETRY LIMI 
437 011354 004737 015744 JSR PC. SRETRY SRETRY THE 
438 011360 000405 : BR SRETRY NOT SUCESSFUL 
439 011362 004737 022706 JSR PC,LINE6C SPRINT "CORRECTED ON N RETRIES' 
440 011366 004737 022746 JSR PC.LINE? “PRINT LINE 7 OF ERROR MESSAGE 
441 011372 000404 ) BR 5$ EXIT 
443 011374 004737 022714 4$: JSR PC, LINE6D sPRINT “UNCORRECTABLE AFTER N RETRIES* 
444 011400 004737 022746 JSR PC.LINE? SPRINT LINE 7 OF ERROR MESSAGE 
445 011404 000207 5S: RTS PC RETURN 
a4 sPROCESS HEADER COMPARE (*HCE") ERROR 
449 011406 032760 000400 002154 CKHCE: BIT #B1T8,$RMER1 (RO) sHCRC SET ON ORIGINAL ERROR ? 
450 011414 00140 BEQ 1$ :BR IF NOT 
451 011416 000137 011054 JMP HCRCER SREPORT HEADER CRC ERROR 
43¢ 011422 004737 023254 1$: JSR PC ,READDR *GET CURRENT SECTOR & TRACK ADDRS 
45 011426 30 015652 JSR PC READHD "READ HEADER OF CURRENT SECTOR 
434 O1143 : 052757 000400 067612 BIT #8178, GENREG+RMER1 :*HCRC* SET ? 
456 011442 13066 101174 MOV CYLNDR,-(SP)  : ;PUSH CYLNDR ON STACK 
457 011446 042737 17 101174 BIC #170000, CYLNDR :CLEAR FORMAT,MFG,USER AND SSF BITS FROM HEADER 
458 011454 026037 002174 101174 CMP SRMDC (RO) ,CYLNDR “CORRECT CYLINDER ? 
459 011462 901402 } BEQ :BR IF IT IS 
460 11464 137 011614 os JMP POSER SREPORT POSITIONING ERROR 
11470 012637 101176 MOV (SP)+,CYLNDR POP STACK INTO CYLNDR 
462 11476 137 012230 JMP HCEER *REPORT ‘HCE* ERROR 
464 011 737 020764 38: JSR BC -SPOTCK 3SEE_IF ERROR AT BAD SECTOR 
465 115 4g BR SEXIT IF IT 1s 
466 1 7 1134 JSR PC ALINE! PRINT LINE 1 OF ERROR MESSAGE 
46 115 14 zie DISPLY ,E SHEADER READ ERROR ~ ‘HCE’ SET 
1151 ? 1 JSR PC LINE SPRINT LINE 2 OF ERROR MESSAG 
115 7 021654 JSR PC,LINE SPRINT LINE 3 OF ERROR ME SSAcE 
470 0115 7 g 4 JSR PC.LINE SPRINT LINE 4 OF ERROR MESSAGE 
476 0115 ? 43: JSR PC. LINESA SPRINT LINE 5 OF ERROR MESSAGE 
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022706 
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SOnnnr 
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Gn 


0000 

015744 
022706 
022746 


022714 
022746 


020764 


021134 
71152 
10254 


001326 
001330 


PC, INCSOF 


PC, INCTOT 
SK 


1T7,MA 
+3 LRETRY 
PC. $RETRY 


BC -LINEGC 

PC,LINE 
6$ 

5$: PC,LINE6D 
PC,LINE7 

6$: 


INCREMENT SOFT ERROR COUNT 
INCREMENT TOTAL ERROR COUNT 
sSET ERROR MASK 

sRETRY LIMIT 

sRETRY THE COMMAND 

sRETRY NOT SUCESSFUL 

sPRINT ‘CORRECTED ON N RETRIES’ 
sprint LINE 7 OF ERROR MESSAGE 


sPRINT ‘UNCORRECTABLE AFTER N RETRIES' 
rs 7 OF ERROR MESSAGE 


zREPORT POSSISLE POSITIONING ERROR 


POSER: JS PC,LINE1 
EMS1 
PC,LINE2 


PC LINE 3C 
(SP)+, CYLNDR 
PC,LINESA 


sREPORT ‘OPI* ERROR 
OPIER: : PC,SPOTCK 


MO 
OPIER1: ‘ Vv 


PC,.LINE6C 

PC,LINE? 

1$: PC ,LINE6D 
PC.LINE? 

sREPORT "DTE* ERROR 

DTEER: Ha PC ,SPOTCK 

SR PC ine 

E 


J 
DISPLY 
JMP OCKER1 


sPRINT LINE 1 OF ERROR MESSAGE 
PROGRAM DETECTED POSITIONING ERROR 
I ¢ OF ERROR MESSAGE 
C_OF ERROR MESSAGE 
NTO CYLNDR 


OF THE ERROR MESSAGE 
OUNT 


3SEE IF ERROR AT BAD SECTOR 
RETURN IF IT IS 
1 OF ERROR MESSAGE 


OF ERROR MESSAGE 

RINT L F ERROR MESSAGE 

3PRINT LINE 4 OF ERROR MESSAGE 
ee ERROR COUNT 


PRINT 
:PRINT LINE 7 OF ERROR MESSAGE 


sPRINT “UNCORRECTABLE AFTER N RETRIES* 
| 7 OF ERROR MESSAGE 


ha AT BAD SECTOR 
a OF ERROR MESSAGE 
H PROCESSING THE ‘DTE* ERROR 





i dam l 
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534 

239 ;REPORT "PAR" ERROR 

37 012014 004737 021134 PARER: JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
538 012020 104414 071205 DISPLY *REPORT PAR’ 

539 012024 004737 021214 JSR PC LINE *PRINT LINE : OF ERROR MESSAGE 
540 012030 004737 021 $0 JSR PC. LINE3E SPRINT LINE 3E OF ERROR MESSAGE 
541 012034 004737 022324 JSR *LINES SPRINT LINE 4 OF ERROR MESSAGE 
24¢ 012040 004737 024740 JSR PC. INCTOT S INCREMENT TOTAL ERROR COUNT 
543 012044 O12? 7 900010 001326 MOV 1T03,MASK ; MASK 

544 01 058 012737 000003 001330 MOV RETRY SRETRY LIMIT 

545 O12 004737 015744 JSR PC. SRETRY SRETRY COMMAND 

546 012964 000405 BR $ SRETRY UNSUCESSFUL 

547 01 004737 022706 JSR PC ,LINE6C SPRINT ‘CORRECTED ON N RETRIES' 
548 012072 004737 022746 1$: JSR PC.LINE? [PRINT LINE 7 OF ERROR MESSAGE 
249 012076 000207 RTS PC SEXIT 

551 012100 004737 022714 2$: JSR PC,LINE6D :PRINT "UNCORRECTABLE AFTER N RETRIES' 
33¢ 012104 000772 BR 1$ SFINISH ERROR MESSAGE 

354 ;REPORT "IAE' ERROR 

556 012106 004737 021134 IAEER: JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
557 012112 104414 071324 DISPLY +RE "TAE' 

558 012116 004737 021214 JSR BC LINER *PRINT LINE 2 OF ERROR MESSAGE 
559 012122 004737 022046 JSR PC,LINE 3F ‘PRINT LINE 3F OF ERROR MESSAGE 
560 012126 004737 024740 JSR PC. INCTOT TINCREMENT TOTAL ERROR COUNT 
561 012132 004737 022746 JSR PC.LINE? [PRINT LINE 7 OF ERROR MESSAGE 
262 012136 000207 RTS PC RETURN 

264 :REPORT "WLE* ERROR 

566 012140 004737 021134 WLEER: JSR PC ALINE sPRINT LINE 1 OF ERROR MESSAGE 
567 012144 104414 071362 DISPLY ,EM36 : T "WLe® 

568 012150 004737 021214 JSR PC,LINE2 [PRINT LINE 2 OF ERROR MESSAGE 
569 012154 004737 024740 JSR PC. INCTOT S INCREMENT TOTAL ERROR COUNT 
570 012160 004737 022746 JSR PC.LINE? SPRINT LINE 7 OF ERROR MESSAGE 
Al 012164 000207 RTS PC RETURN 

273 :REPORT FORMAT ERROR 

575 012166 004737 021134 FMTER: JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
576 012172 104414 070773 DISPLY 6 SFURMAT ERROR 

577 012176 004737 021214 JSR BC LINER :PRINT LINE ; OF ERROR MESSAGE 
578 012202 004737 021654 JSR PC.LINE SPRINT LINE 3 OF ERROR MESSAGE 
579 012206 004737 0283 4 JSR PC LINES SPRINT LINE 4 OF ERROR MESSAGE 
586 01 31 004737 022556 JSR PC.LINESA : LINE 5A OF ERROR MESSAGE 
287 O1S538 Bossy ossnes 4s OPESLINE? FEAT EME INE 2 OF ERROR MESSAGE 
289 012226 000207 RTS PC’ ‘ 

BY :REPORT HEADER COMPARE ERROR 

93 012230 737 021134 HCEER: JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
oe Bioee Gs Ba Bt he, MIN TEM IR esac 
596 012244 ike sate JSR PC; LINE SPRINT LINE 4 OF ERROR MESSAGE 





wo 
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597 012250 737 0 3324 JSR PC, LINES :PRINT LINE 4 OF ERROR MESSAGE 
604 012254 737 022556 JSR PC.LINESA SPRINT LINE 5A OF ERROR MESSAGE 
605 737 0 4740 JSR PC. INCTOT SINCREMENT TOTAL ERROR COUNT 

606 0 737 022746 JSR > LINE [PRINT LINE 7 OF ERROR MESSAGE 
607 12270 207 RTS RETURN 

609 sPROCESS CONTROL/INTERFACE TRANSFER ERROR 

611 012272 004737 021134 TRFER: JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
éi¢ 012276 104414 071475 DISPLY ,EM40 [RH CONTROLLER OR UNIBUS TRANSFER ERROR 
613 012302 004737 021214 JSR BC LINER SPRINT LINE 2 OF ERROR MESSAGE 
614 01 306 004737 021654 JSR PC.LINE SPRINT LINE 3 OF ERROR MESSAGE 
615 012312 004737 0223246 JSR PC, LINES [PRINT LINE & OF ERROR MESSAGE 
616 012336 004737 024740 JSR PC INCTOT j INCREMENT TOTAL ERROR COUNT f 
61 O1e3e2 032760 121400 002150 BIT #B1T15!B1T13!B1T9!B1T8, $RMCS2(RO) s"DLT","UPE*’, "MXF°, "MDPE’ SET ? 
618 012330 001415 BEQ :BR IF NONE SET 

619 012332 012737 000003 001330 MOV #3,RETRY TRETRY LIMIT 

620 012340 005037 001326 CLR [CLEAR ERROR 

621 012344 004737 015744 JSR PC, $RETRY SRETRY THE OPERATION 

622 012350 000403 BR SRETURN HERE IF RETRY UNSUCESSFUL 
623 012352 004737 022706 JSR PC,LINE6C SPRINT "CORRECTED ON N RETRIES' 
62h 012356 000402 BR 2$ *FINISH THE ERROR REPORT 

626 012360 004737 022714 1$: JSR PC,LINE6D sPRINT "UNCORRECTABLE AFTER N RETRIES' 
627 012364 004737 022746 2$: JSR PC.LINE? [PRINT LINE 7 OF ERROR MESSAGE 
628 012370 000207 RTS PC 
630 sPROCESS 'SKI° ERRORS 

632 012372 004737 021134 SKIER: JSR PC LINE! ;PRINT LINE 1 OF ERROR MESSAGE 
633 012376 104414 072277 DISPLY ,EM50 :"SkI' E 

634 012402 004737 021214 JSR BC.LINE? [PRINT LINE 2,0F ERROR MESSAGE 
635 012406 004737 021670 JSR PC.LINE SPRINT LINE 38 OF ERROR MESSAGE 
636 O12 737 024740 JSR PC. INCTOT ZINCREMENT TOTAL ERROR COUNT 

637 012616 004737 024670 JSR PC. INCSKI SINCREMENT 'SKI" ERR 

38 012422 004737 023076 JSR PC.LINE7A [PRINT LINE 7A OF ERROR MESSAGE 
639 012426 004737 015534 JSR PC RECALT *RECALIBRAT 

640 012432 000207 RTS PC 
64 :REPORT WRITE CLOCK FAILURE ("WCF") 

644 012434 006737 021134 WCFER: JSR PC ALINE! ;PRINT LINE 1 OF ERROR MESSAGE 
645 012440 104414 071262 DISPLY ,EM34 SREPORT WRITE CLOCK FAILURE 

646 012444 004737 21 14 BC LINER SPRINT LINE 2 OF ERROR MESSAGE 
647 012450 004737 1662 JSR PC-LINE3A SPRINT LINE 3A OF ERROR MESSAGE 
648 012454 004737 022324 JSR PC.LINES SPRINT LINE 4 OF ERROR MESSAGE 
649 012460 004737 0 4740 JSR PC. INCTOT S INCREMENT TOTAL ERROR C 

650 012464 0047 7 13836 JSR PC. BAD [SEE IF BAD SECTOR TO BE PRINTED 
651 012470 13 7 001330 MOV f RETRY [RETRY COUNT 

652 ot 476 012737 0 001326 MOV #B1T05 MASK TERROR MASK 

653 012504 006737 015744 JSR PC, SRETRY SRETRY THE COMMAND 

654 01 310 5 BR 2$ [RETURN HERE IF RETRY UNSUCESSFUL 
655 01251 7 022706 JSR PC,LINE6C SPRINT "CORRECTED ON N RETRIES® 
696 oI 316 7? 022746 1$: JSR PC.LINE? SPRINT LINE ? OF ERROR MESSAGE 
657 01252 207 RTS PC 


658 
659 012524 


“ 
wa 
N 


022714 2s: JSR PC,LINE6D sPRINT "UNCORRECTABLE AFTER N RETRIES* 
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660 012530 000772 BR 1$ 
66¢ sPROCESS DRIVE UNSAFE ERROR 

1 737 021134 UNSAF: JSR PC,LINE1 sPRINT LINE 1 OF ERROR MESSAGE 
$e8 ei : ¢ 1 ie Oeil DISPLY bata SREPORT DR SAFE 

012542 006737 021214 JSR BC LINER SPRINT LINE 2 OF ERROR MESSAGE 
667 012546 004737 021654 JSR PC,LINE [PRINT LINE 3 OF ERROR MESSAGE 
668 01255 737 024 40 JSR PC. INCTOT "INCREMENT TOTAL ERROR COUNT 
669 oi 356 os 2760 0000 002202 gIT #1T14,SRMERZ(RO) ils *SkI° ALSO SET ? 
671 0125 1273 001326 MOV #eiTl4 MASK SLOAD THE ERROR MASK 
672 012574 012737 vita 001330 MOV #3,RETRY SRETRY COUNT 
673 012602 004737 015744 JSR PC. SRETRY [RETRY TH 
674 01 00040 BR 1$ SRETRY WAS UNSUCESSFUL 
675 012610 004737 022706 JSR PC ,LINE6C SPRINT "CORRECTED ON N RETRIES' 
676 012614 000402 BR 2s [CONTINUE WITH ERROR REPORT 
678 012616 004737 022714 1$: JSR PC,LINE6D sPRINT “UNCORRECTABLE AFTER N RETRIES' 
679 01262 737 022746 2$: JSR PC.LINE? “PRINT LINE 7 OF ERROR MESSAGE 
680 012626 032760 040000 002202 BIT #81714, $RMER2(ROS iSHECK *SkI" AGAIN 
$8) Ot 3636 inte aCe Brien 
683 012640 Higa 015534 3$: JSR PC,RECALT *RECALIGRATE 
684 012644 000207 RTS PC RETURN 
686 :REPORT AN ‘UNKNOWN’ DATA PATTERN 
688 012646 105737 001356 NOMTCH: TSTB _—~FRSTER :FIRST ERROR IN THE SECTOR ? 
689 012652 001013 BNE [BR IF NOT OR IF PROCESSING ‘DCKER’ 
690 012654 004737 021134 JSR PC,LINE1 [TYPE LINE 1 OF ERROR MES 
691 012660 104414 071671 DISPLY ,€ :"CAN'T MATCH DATA WITH PATTERN’ 
692 012664 004737 021214 JSR BC ALINE SPRINT LINE g 0 ERROR MESSAGE 
693 012670 004737 021662 JSR PC.LINE [PRINT LINE 3A OF ERROR MESSAGE 
69% 012674 004737 022324 JSR PC, LINES [PRINT LINE 4 OF ERROR ME 
695 012700 000404 BR 2$ [CONTINUE PROCESSING ERROR 
oes iarae Sie artes TRIS arms Sega ren SATA MATH ParTENW 
698 012712 104414 $0128 2s: DISPLY ‘LINGI SHEADER FOR DATA PRINTOUT 
706 012716 010146 MOV R1,-(SP) SADDRESS OF WORD 1 

012720 73 023202 JSR PC;LINOCT :TYPE WORD 1 

012724 104414 0752 DISPLY ,BLNKS [TYPE 2 BLANKS 

01 12166 V (R1)+,=(SP) SADDRESS OF WORD 7 \ 

01 73 023202 JSR PC,LINOCT [TYPE WORD 1 

oi 104414 00120 DISPLY ,$CRLF CRLF 

1274 010146 MOV R1.-(SP) SADDRESS OF WORD 2 

012744 00473 023202 JSR PC-LINOCT *TYPE WORD 2 

012750 104414 075 DISPLY ,BLNKS STYPE 2 BLANKS 

012754 12146 MOV (R1)+,-(SP) SADDRESS OF WORD 2 

oI 136 73 923208 JSR PC .LINOCT [TYPE WORD 2 

12762 104414 00129 DISPLY ,$CRLF [CRLF 

01 766 010146 MOV R1,-(SP) SADDRESS OF WORD 3 

1277 73 023208 JSR PC-LINQCT [TYPE WORD 3 

12774 104414 0 DISPLY NKS, [TYPE 2 BLANKS 

1 1214 MOV (R1)+,=(SP) SADDRESS OF WORD 3 

013002 73 023208 JSR PC ,LINOCT STYPE WORD 3 

01 104414 00120 DISPLY ,$CRLF >CR-LF 


ase § 


12 
{ 14 
1 
13024 
013026 
me § 
my Sts 
013044 
710 013052 
711 01 
ar 
71 
714 
715 013062 
716 013070 
717 Ot eere 
718 013100 
719 013102 
720 013106 
721 013110 
722 013114 
723 Oi3138 
724 01312 
725 Oi31¢8 
726 ois 
727 013136 
728 013142 
729 013146 
730 013152 
731 
732 
733 
734 013154 
re sng 
re Sng 
738 013170 
739 013174 
740 ot 
741 013202 
ms 01 
743 01321 
744 a 18 
745 01322 
4] 013565 
747 0132 
748 013236 


005 


S 


SPSPeree 


ee} 
ia 
NNN ENO 


BN 
Sis 


177777 
001460 


s 


NANI] 


NW 
Pt 


~r 
aS 
= 


Soooooo 
QOLVELS 


NoNononoerg 


001326 
001366 


002140 
002150 


V R1,-(SP) ZADDRESS OF WORD 4 
R PC;LINOCT 3TYPE WORD . 
DISPLY ,BLNKS TYPE 2 BLANK 
V (91)+,=(SP) SADDRESS OF WORD 4 
JSR C.LINOCT :T YE WORD 4 
DISPLY scRLr CReL 
ADD #<252.%2.>,R1 S INCREMENT BUFFER POINTER 
CLR R2 EAR “WORDS TO COMPARE’ COUNT IN R2 
MOV #~1,FRSTER <SET ERROR FOUND INDICA 
MOV CMPLMT,LIMIT | :RESET THE COMPARE ERROR TYPEOUT LIMIT 
RTS PC RETURN 
sCHECK ERROR BITS IN THE RH/RM REGISTERS 
CKERR: BIT #60000, $RMCS1 (RO) :SEE IF ‘TRE’ OR “MCPE’ SET 
BNE IT EITHER SET 
BIT #177400, srmcs2(rde sSEE IF ERROR BITS IN CS2 SET 
BNE 1$ 3BR IF ANY SET 
TST SRMER1 (RO) TANY BITS SET IN ER1 
BNE 3 IF ANY SET 
TST SRMER2 (RO) SANY BITS SET IN ER2 ? 
BEQ “BR IF T 
1$: JSR PC,LINE1 [PRINT LINE 1 OF ERROR MESS, 
DISPLY ,EM44 RROR BITS SET, BUT 'SC’ OR ‘TRE*® NOT SET 
JSR BC LINE? SPRINT LINE : OF ER 
JSR PC.LINE SPRINT LINE 3 OF ERROR MESSAGE 
JSR PC.LINES SPRINT LINE 4 OF ERROR 
JSR PC; INCTOT S INCREMENT TOTAL ERROR COUNT 
JSR *LINE? [PRINT LINE 7 OF ERROR MESSAGE 
2s: RTS : 
sCHECK BUS ADDRESS REGISTER & WORD COUNT REGISTER 
CKBUS: TST SRMWC (RO) :CHECK WORD COUNT 
BNE 1$ :BR IF NOT ZERO 
MOV SWRDL(RO),<(SP) :WORD LENGTH 
ASL *CHANGE INTO BYTE COUNT 
ADD $BUF(RO),(SP) ADD THE STARTING LOCATION 
CMP (SP)+,$RMBA(RO) :BUFFER ADDRESS PROPER 
BEQ “BR IF OK 
1$: JSR PC ALINE! SPRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EM4 *BUS ADDRESS OR WORD COUNT INCORRECT 
JSR BC ALINE? SPRINT LI OF ERROR MESSAGE 
JSR PC.LINE PRINT LINE 3D OF ERROR MESSA 
JSR PC.LINES SPRINT LINE 4 OF ERROR ME 
JSR pC. INCTOT S INCREMENT TOTAL ERROR COUNT 
a JSR LINE [PRINT LINE 7 OF ERROR MESSAGE 
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MAIN 


t=] 
Sf 
Ww 
Nm 
= 
So 


Crauis 
SNZSS SM 


4 

5 01 

6 01 

7 01 

8 

9 01 

10 01 

11 01 

ig 01 

13 013302 
1 013304 
16 013306 
iH o13t6 
a Ss 
Ss 
22 013350 
23 013354 
24 013360 
25 013366 
26 013370 
2? 013374 
28 013400 

013402 
013406 

1 013414 
32 013422 
33 
34 
3% 013424 
37 313230 
3 Otte 
9 013436 
40 013440 
a ge 
rs 013450 
ots at ree 
45 013460 
rs] 013462 
48 013756 
49 0134 
50 013476 
23 
54 013300 
Sat 
3 b13319 


001356 


014052 
001364 
014060 


ico 


012646 


000024 


001370 
000005 


sCOMPARE THE BUFFER 


CMPAR: CLR 
CMPARD: BITB 
BN 


1$: CLR 


2s: 


CMSTR: ot 


1$: MOV 
2$: CMPB 
BNE 


FRSTER 


#4, $CODE (RO) 
1$ 


PC 
aay, 


S$BUF ( 
et bacnt 
SRW ( (RO). CMCNT 


PC 


SC¥L CRO) CM -CRCYL 

Hey CHSEC 

CMPLMT LIMIT 
LIMIT 

5-1 ZROIND 

SAVER 


SAVERS 
CMCNT ,SSSEC (RO) 


atl oR2 
CMCNT 


2s 

SSSEC(RO) .R2 
SSSEC(RO) ,CMCNT 
SCODE (RO) #5 
CMDAT 


sCOMPARE HEADER WORDS 


CMHED: MOV 
1$: CMP 
2$: 


CMSTR2: te 
RTS 


ach 


MSTR2 
AT iiy 


OS” CMSTR2 
# Re 
CMPRX 


ERCTR 
PC,.CMPRT 
PC 


sCOMPARE DATA FIELD 


CMDAT: JSR 
JSR 


JSK 


PC ,GETLMT 
PC MATCH 


PC .NOMTCH 


#170006, (R1) 
(R5)+, (R1)4 


sCLEAR ‘FIRST ERROR’ INDICATOR 


3SEE IF READ COMMAND 
sBR_IF IT IS 
RETURN 


sCLEAR THE ERROR COUNTER 

BUFFER ADDRESS 

:WORD COUNT TO WORKING LOCATION 
ZCALCULATE ACTUAL WORDS TRANSFERED 


sEXIT=-NO WORDS XFERED 


eh as ADDRESS WORKING LOCATION 
SET MFG, USER, SSF AND FMT BITS 
SECTOR ve Tack ADDRESSES TO WORKING LOCNS 


‘DISPLAY LI 
:CONVERT PARAMETER INTO LIMIT VALUE 
[CLEAR THE 'ZERO'S’ INDICATOR 

: SAVE WORD 

[CLEAR THE RS SAVE WORD 

31S BUFFER SIZE GREATER THAN ONE SECTOR ? 
tLESS THAN USE REMAINING BUFFER 

SSET COUNTER 


sCOMPARE SECTOR 
sDECREMENT WORD COUNT 
+ —_— & DATA? 


sADDRESS OF COMPARING CYLINDER 
ZSET BITS INCASE BAD SECTOR ENCOUNTER 
ZCHECK CYLINDER 

: F COMPAR 

sCOMPARE SECTOR/TRACK 

3BR_ IF EQ 

sREPORT ERROR 

SUBTRACT ere LENGTH FROM SIZE 
7BR IF NOT F 

sCOMPARE THE DATA PORTION 

Fa ge THE ERROR COUNT 


T_THE COMPARISON ERROR 
CHECK THE REST OF THE HEADER 


ADDRESS LIMITS 
THE PATTERN 


PATTERN 
ETURN HERE IF NO MATCH WITH PATTERN MADE 


SEQ 0084 


2m 
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§ 013516 000456 BR 7$ sBYPASS COMPARE ROUTINE 

60 91 5 11405 1$: MOV (R4) RS Ra: OF PATTERN ADDRESS IN R4 

61 0135 1 703 000020 MOV he 5 is. PATTERN POS COUNTER 
0135 08 1 2$: CMP (R1)+, (RS)+ BUFFER WITH PATTERN 

63 0135 1916 BNE AS IF Phot E EQUAL 

64 013532 005737 001364 TST RCTR ZERRORS DETECTED ? 

65 0135 9014 BEQ ERRORS 
01354 2777 000010 165406 BIT BSW3,aSwR iSuITCH SET ? 

67 013546 1408 BEQ :BR IF NOT SET. 

68 013550 737 014060 JSR PC,CMPRT ‘DISPLAY THE WORD 

69 013554 003 502 3S: DEC R2 :DECREMENT SIZE COUNT 

70 013556 0034 BLE 7$ [BR WHEN A 

71 013560 005305 DEC R3 :DECREMENT pATT POS COUNT 
013562 001361 23 ‘BR IF NOT A TEND OF PATT 
013564 000755 BR 1$ SRESTART THE PATTERN 

74 013566 005761 177776 4$: TST -2(R1) 31S AISCOMPARED CHARACTER=0 

75 013572 001410 BEQ F YES 

7 013574 012737 177777 001354 MOV #-1, ZROIND °SET NON-ZERO MISCOMPARED INDCATOR 

77 013602 905287 001364 INC ERCTR Z INCREMENT THE ERROR COUNTER 

78 013606 37 014060 JSR PC, CMPRT sREPORT ERROR 

9 013612 000760 BR 3$ S CONTINUE COMPARE 

81 013614 105737 001356 5$: TST8 —s FRSTER :FIRST ERROR? 

8 013620 100407 BMI 65 ‘BR IF NO 

83 013622 005037 001354 CLR ZROIND ‘SET THE ZERO INDICATOR 

84 01 010137 001360 =z. MOV R1,SAVER1 *SAVE CURRENT R1 

85 01 010537 001362 MOV R5. SAVERS SAVE CURRENT RS 

86 013636 00074 BR 33° [CONTINUE COMPARE 

87 013640 005737 001354 6S: TST ROIND SANY MISCOMPARIONS NOT ZEROS ? 

88 013644 001743 BEQ [BR IF NONE~ALL ERRORS=ZERO 

89 013646 004737 014060 JSR PC, CMPRT SREPORT ERROR 

90 013652 000740 BR 3$ S CONTINUE COMPARING 

3 013654 126027 000024 000005 7$: CMPB  - SCODE(RO),#S |: READ HEAD AND DATA ? 

93 013662 001414 BEQ 9$ YES 

94 013664 015702 001370 8$: MOV CMCNT R2 *SET COUNTER = REMAIN BUFFER LENGTH 

95 013670 020227 000004 CMP R2,44 [1S THERE AT LEAST 4 WORDS TO MATCH PATTERN ? 

96 013674 0024 BLT CMPRX [BR IF NO 

97 013676 162737 000400 001370 SUB #256. ,CMCNT [GREATER THAN A SECTOR ? 

98 013704 003675 BLE CMDAT [NO,RETURN TO COMPARE LOOP 

99 01 706 12708 000400 MOV #256. .R2 SSEf COUNTER =SECTOR SIZE 

100 01371 b0867 CMDAT SRETURN TO COMPARE LOOP 

108 013714 023727 001370 000002 9S: CMP CMCNT #2 :1S THERE AT LEAST 2 WORDS TO COMPARE HEADER ? 

103 013722 00. 435 BLT CMPRX <BR IF 

104 013724 10 23 1374 INCB = CMSEC ; INCREMENT COUNTER 

105 01 12 7 001374 001424 CMPB  CMSEC,SECLMT §:MAX SECTOR # ? 

106 01 101424 BLOS 108 NO 

107 013740 105037 001374 CLRB = CMSEC SRESET SECTOR # 

108 013744 1 3637 1375 INCB = CMTRK Z INCREMENT TRACK # 

109 013750 123737 001375 001426 CMPB ss CMTRK,TRKLMT =: MAX _- TRACK 

110 01 136 101414 BLOS 10s NO 

111 013760 105037 001375 CLRB SRESET 

Hs Starve Si3seg ara BET cy RUERN a men 

114 013774 3746 BIC Em (SP) SAVE ONLY THE CYLINDER BITS 


2m 


1 7 
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115 014000 9226 7 001422 CMP (SP)+ CYLIMT LAST CYLINDER ? 
1g 14004 101401 BLOS 10S ; 
WW 14 000421 C [NORMAL RETURN,NOT WRAP AROUND 
119 014010 012705 901 72 10$:  0V Bact RS sADDRESS OF COMPARING CYLINDER 
120 014014 050711 1 $308 BIS #170000,(R1) | :SET BITS INCASE BAD SECTOR ENCOUNTER 
121 014 02 521 CMP Ri)+ [COMPARE 1ST HEADER WORD 
1 2 0140 14 é BEQ : 
123 0140 737 013466 JSR PC, CMSTR2 [NOT MATCH 
124 014030 022521 17$: CMP (R5)+, (R1)¢ [SECOND WORD OF HEADER 
125 0140 14 é BEQ 12$ [MATCH 
1 § 14034 7 13466 JSR PC CHSTR2 [NOT MATCH 
127 014040 162737 O08 001370 12$: SUB #2. CMCNT TADJUST WORD COUNT 
128 014066 003401 BLE CMPRX [COMPARE IS DONE 
i 014050 000705 BR RS [RETURN TO COMPARE LOOP 
131 014052 004737 014334 CMPRX: JSR PC, ENDCMP :PRINT LAST LINE IF ERRORS 
132 014056 000207 RTS PC 
134 :TYPE DATA COMPARE ERRORS 
136 014060 005737 001360 CMPRT: TST SAVER1 ;PRINT SAVED VALUES ? 
137 014064 00101 BNE <BR IF YES 
138 014066 105737 001356 TSTB «FRSTER [FIRST ERROR? 
139 01407 100402 BMI 1$ :BR IF NOT 
140 014074 004737 014154 JSR PC,4$ SPRINT INITIAL MESSAGE INFO 
141 014100 004737 014236 1$: JSR PC,8$ [PRINT REMAINDER OF MESSAGE 
16e 014104 000422 BR 3$ EXIT 
143 014106 2s: 

014106 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 

014110 010546 MOV R5.=(SP) 3: RS ON STACK 
144 014112 013701 001360 MOV SAVER R1 *DISPLAY SAVED RI 
145 014116 013705 001362 MOV 5.R5 [DISPLAY SAVED RS 
146 014122 004737 014154 JSR PC,4$ SPRINT INITIAL MESSAGE INFO 
147 014126 004737 014236 JSR PC.8$ [PRINT SAVED VAL 
148 014132 005037 001 CLR SAVER [CLEAR SAVED REGISTER INDICATORS 
149 014136 005037 001362 CLR SAVERS [CLEAR THE OTHER ONE 
150 014142 012605 MOV (SP)+,R5 +;POP STACK INTO R5 

014144 012601 MOV (SP)+;R1 +:POP STACK INTO R1 
151 014146 7 014236 JSR PC.8$ :PRINT REMAINDER OF MESSAGE 
13e 014152 000207 38: RTS PC [RETURN 
154 014154 105737 001356 4$: TSTB = FRSTER :FIRST ERROR ? 
155 014160 100425 BMI 7$ [BR IF NOT 
136 014162 00101 BNE 5$ BR IF FIRST ERROR AND PROCESSING ‘DCK* ERROR 
157 014164 00473 4 JSR PC LINE SPRINT LINE 1 OF ERROR MESSA 
158 014170 104414 071610 DISPLY ,EM4 [DATA COMPARE E 
159 014176 004 7 021214 JSR BC +LINER | [PRINT LIWE 2 OF ERROR MES 
160 914200 737 0 166¢ JSR PC,LINE SPRINT LINE 3A OF ERROR MESSAGE 
161 014 7? 022 JSR BC. LINE [PRINT LINE 4 OF ERROR MESSA 
169 01421 04 BR 760 TO TYPE HEAD 
16 O14 12 104414 074 5$: DISPLY -LINSB SPRINT "DATA COMPARISON ERRORS’ 
164 014216 104414 001 -  DISPLY ‘S$CRLF CRoLF 
165 014222 106414 07441 6$: DISPLY ‘LI [PRINT ° EXPCTD RECEVD 
166 : L DATA DATA" 
16 014226 012737 177777 001356 mov #~1, FRSTER *SET FIRST ERROR FLAG 
168 014 207 7$: RTS PC [RETURN 
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169 
170 014 36 005737 001366 8$: TST MIT sTYPEOUT LIMIT REACHED ? 
171 01424 901405 BEQ “BR IF IT HA 
1% 14244 005337 001366 DEC LIMIT SDECREMENT LIMIT COUNTER 
173 014250 901005 BNE ‘BR IF NOT AT LIMIT 
174 014252 032 000200 164674 9S: BIT #SW07,@SWR [PRINT ALL DATA COMPARE ERRORS ? 
175 014 001001 BNE 10$ :BR IF YES 
176 014262 000207 RTS PC RETURN 
178 014264 010146 10$: MOV R1,-(SP) :BUFFER ADDRESS 
179 014266 162716 SUB #2. (SP) TADJUST ADDRESS 
180 014272 00473 4 0 JSR PC.LINOCT STYPE IT 
181 014276 104414 0 3 DISPLY ,BLNKS2 : TYPE 2 BLANKS 
1s 014302 ees} 177776 MOV =2(R5) ,-(SP) sPUT GOOD DATA ON THE STACK 
183 014306 00473 025202 JSR PC,LINOCT [TYPE IT 
184 aE 104414 075 DISPLY Brey sTYPE 2 BLANKS 
185 014316 016146 177776 MOV =2(R1),-(SP) | :BAD DATA 
186 014322 004737 023202 JSR PC,LINOCT [TYPE IT 
187 014326 104414 001203 DISPLY ,$CRLF sCRoLF 
188 014332 000207 RTS PC RETURN 
19 LAST LINE OF COMPARE ERROR REPORTING 
1 014334 105737 001357 ENDCMP: TSTB FRSTER+1 zANY COMPARE ERRORS FOUND ? 
193 014340 001417 BEQ [BR IF NOT 
194 014342 005737 001364 TST ERCTR sSEE HOW MANY ERRORS 
195 014346 001410 BEQ $ 3BR IF ONLY CAN'T MATCH PATTERN 
196 014350 104414 074531 DISPLY ,LINGE : "NUMBER OF ERRORS=' we 
197 014354 013746 001364 MOV EPCTR,-(SP) sNUMBER OF ERRORS 
198 014360 004737 023234 JSR PC, LINDEC STYPE IT 
199 014364 104414 001205 DISPLY ,$CRLF CRLF 
200 014370 004737 024740 1$: JSR PC, INCTOT : INCREMENT TOTAL ERR T 
201 014374 004737 022746 JSR PC.LINE? [PRINT LINE 7 OF E MESSAGE 
soe 014400 000207 23: RTS PC sRETURN 
204 
205 ROUTINE TO MATCH THE DATA WITH A PATTERN, ONLY WHEN LOCATION *PATTERN' 
206 sIS EQUAL T ( DATA PATTERN MODE). OTHERWISE. THIS ROUTINE WILL 
Hh 2 Hey THE ADDRESS OF THE EXPECTED FIXED DATA PATTERN IN R4. 
215 : MOV #BUFFER,R1 :BUFFER ADDRESS 
216 : JSR PC, MATCH 
217 : RETURNI sPATTERN ADDRESS IN R4 
$18 3 RETURN2 :COULDN'T MATCH PATTERN 
$3 014402 010146 MATCH: MOV R1,-(SP) sSAVE R1 ON THE STACK 
225 014404 013704 001472 MOV PATTERN, R4 *WAS RANDOM PATTERN ENABLED ? 
226 014410 001402 BEQ 1$ :BR IF YES 
32 014412 006304 ASL RG 38 
8 014414 000416 BR 4$ SUSE KNOWN PATTERN 
3 014416 012704 000044 1$: MOV #44,R4 *PATTERN TABLE INDEX 
0144 011601 2s: MOV (SPS .R1 SRELOAD R1 
31 014424 162704 000002 SUB #2,R6 SDECREMENT INDEX 
32 0144 001413 BEQ *BR IF PATTERN NOT MATCH 
14432 016405 002324 MOV SINDAT(R4).R5  :ADDRESS OF PATTERN ADDRESS 
014436 012703 MOV R ; R OF LOCATIONS TO CHECK 
35 014442 022125 3$: CMP (R1)*,(R5)+ *COMPARE THE BUFFER AGAINST THE PATTERN 
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14646 901 BNE 2$ :BR IF NOT EQUAL, TRY NEXT PATTERN 
1446 DEC R3 : FINISHED ch HECKING? 

1445 1374 BNE 3$ ‘BR IF NOT FINISHED 
39 01445 704 002324 4$: ADD ASTNDAT RG ‘MAKE PATTERN ADDRESS ABSOLUTE 
240 014456 03 BR EXI 
41 014460 766 000002 000002 5$: ADD #2 (SP) S INCREMENT RETURN ADDRESS 
42 014466 012601 és: MOV (SP) +, SRESTORE R1 
4s 014470 000207 RTS RETURN 
45 JUSE ECC TO CORRECT THE DATA ERROR 
rh 914472 016037 002144 001400 ECC: MOV SRMBA (RO) ECSEC sADDRESS OF As! LOCN XFERED 
48 014500 016046 002142 MOV SRMWC(RO).<(SP) :ACT WORDS XFERED (2°S COMP) 
249 014504 966016 000020 ADD SWRDL(RO), (se). tADD WORDS REQUESTED 
250 914510 00100 BNE 1$ 
251 01451 003726 TST (SP)+ sRESTORE STACK 
$3¢ 014514 00020 RTS PC TEXIT=-NO WORDS XFERRED 
253 014516 005046 1$: CLR (SP) [CLEAR NEXT STACK LOCN 
254 014520 016046 000022 MOV SSSEC(RO),<(SP) :SECTOR $12 
255 014524 004737 032040 JSR PC,$DIV :D1V IDE WORDS XFERED BY SECTOR SIZE 
256 014530 009716 TST (SP) SPARTIAL SECTOR XFERED ? 
257 014532 00141 BEQ 2$ F NOT 
258 014534 006316 ASL (SP ) =CONVERT INTO NUMBER OF BYTES 
259 014536 161637 001400 SUB (SP) ,ECSEC *SUBTRACT SECTOR RESIDUE 
260 014542 122760 000024 CMPB  #5,$CODE(RO) | :WAS OPERATION, READ HEAD & DATA 
261 014550 001007 BNE ‘BR IF NOT 
262 014552 062737 000004 001400 ADD #4, ECSEC TADD HEADER SIZE (IN BYTES) BACK IN 
263 014 000403 BR 3$ *GO ADJUST THE STACK POIN 
264 014562 162737 001000 001400 28: SUB #256.*2,ECSEC ;SUBTRACT SECTOR DATA FIELD SIZE (IN BYTES) 
265 014570 706 000004 3$: ADD #4,SP JUST THE STACK POINTER 
266 014574 016037 002204 001376 MOV SRAECI (RO), ECBIT’ “EC COUNT 
267 014602 005337 001376 DEC ECB ADJUST BIT POSITION 
268 014606 013737 001376 001406 MOV CRIT. ECWRD *LOAD THE WORD COUNT LOCATION 
269 014614 042737 177760 001376 BIC #°C17,ECBIT SSAVE THE BIT OFFSET COUNT 
270 014622 042737 17 001406 BIC #17, ECWRD [CLEAR THE BIT OFFSET 
271 014630 006237 0014 ASR CwR *CHANGE TO BYTE COUNT(DIVIDE BY 2) 
372 014634 006237 001406 ASR ECWRD : CHANGE 1 BYTE COUNT(DIVIDE BY 4) 
273 014640 006237 001406 CwR 3CHANGE TO BYTE COUNT (DIVIDE BY 8.) 
274 014644 104414 074606 DISPLY ,LINIOA : "ERROR GINS AT 
275 014650 013746 001406 ECWRD,-(SP) [PUT THE UORD COUNT ON THE STACK 
276 014654 006216 ASR (SP) *GET STARTING WORD FOR MESSAGE(DIVIDE BY 16.) 
277 014656 004737 035250 JSR PC,$SB2D SCONVERT THE WORD COUNT TO DECIMAL 
278 014662 004737 032 SR PC SSUPRL SAND PRINT IT 
279 014666 104414 074642 DISPLY Ni +" IN DATA FIELD OF ERROR SECTOR’ 
280 014672 063737 001400 001406 D etsec. ECWRD ‘FIND THE BEGINNING OF THE ERROR BURST 
281 014700 026037 002144 001406 CMP SRMBA(RO) ,ECWRD 3SEE IF BURST WAS IN DATA READ 
282 014706 101002 BHI 4 IF IN DATA 
83 014710 000137 015224 JMP ECC2 :NOT IN DATA READ = REPORT IT 
285 014714 016037 002206 001402 4S: MOV SRMEC2(RO) ,ECMSKO >GET THE ERROR BIT MASK 
286 014722 005037 001404 CLR ECMSK1 7CL UPPER MASK WORD 
287 014726 005337 001376 5$: DEC ECBIT 3DECREMENT THE BIT OFFSET COUNT 
288 014732 002405 BLT 6$ IF DONE 
289 014734 006337 001402 ASL ECMSKO {SHIFT THE ERROR MASK 

014740 137 0014 ROL CMSK1 3SH IFT THE LOWER INTO THE UPPER 

1 014744 770 BR $ [CONTINUE THE SHIFT 


14746 
4754 
4760 
47 
& 
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015036 
015042 
310 015044 
311 015052 
31$ 015056 
13 015062 
314 015070 
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015104 
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015120 
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015130 
015134 
015140 
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324 015150 
325 015152 
330 015156 
015162 
015166 
015172 
015176 
015202 
015 
He 
33! 013529 
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16420 
085209 
07523 
07470 
00120 


000010 
002144 


001420 


164324 


7$: 


ECC1: 


ECC2: 
ECCX: 


DISPLY 
MOV 
JSR 
DISPLY 
MOV 
JSR 
DISPLY 
MOV 
JSR 
DISPLY 
TST 
BEQ 
DISPLY 
MOV 
JSR 
DISPLY 
MOV 
JSR 
DISPLY 
MOV 
JSR 
DISPLY 
BR 


DISPLY 
DISPLY 
RTS 
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@ECWRD,ECBADO 
ECMSKO,=(SP) 


SECWRD, 
ECMSKO, @ECWRD 
(SP)+,@ECWRD 


CMSK1 


ECWRD ,ECWRD1 
CWRD1 


SRMBA(RO) ,ECWRD1 


@ECWRD1 ,ECBAD1 


ECMSK1,=(SP) 
@ECWR 


DI, (SP) 
ECMSK1 ,@ECWRD1 


(SP)+,@ECWRD1 


PC,LINOCT 

BL 

SE CWRD1,-(SP? 
PC,LINOCT 
BLNKS 

ECCX 

,LIN19C 
S$CRLF 

PC 


SEQ 0089 


sSAVE THE INCORRECT WORD 
PUT LOWER MASK ON STACK 
;CLEAR ERRONEOUS ONE BITS FROM MASK 


7CLEAR ERRONEOUS ONE BITS FROM BAD WORD 
3SET DROPPED BITS 


sDOES — GO INTO NEXT WORD ? 


‘DUPLICATE ADDRESS 
SINCREMENT ERROR ADDRESS 
-1S NEXT WORD IN THE BUFFER ? 
:BR IF YES, ELSE 
[WAS ERROR IN FIRST WORD ? 


[CLEAR 2ND WORD ADDRESS 
[PRINT WORD CORRECTED 


3SAVE_THE SECOND BAD WORD 

sPUT THE UPPER MASK ON THE STACK 

CLEAR ERRONEOUS ONE BITS FROM UPPER MASK 
sCLEAR ERRONEOUS ONE BITS FROM DATA WORD 
3SET DROPPED BITS 


sHEADER 

PUT ECWRD ON THE STACK 

sTYPE ECWRD 

sTYPE 2 BLANKS 

sPUT ECBADO ON THE STACK 
sTYPE ECBADO 

sTYPE 2 BLANKS 

3PUT @ECWRD ON THE STACK 
sTYPE @ECWRD 

sTYPE 2 BLANKS 


PRINT THE NEXT WORD ? 
;BR IF NOT 


7 CR-LF 

sPUT ECWRD1 ON THE STACK 

sTYPE ECWRD1 

sTYPE 2 BLANKS 

3PUT ECBAD1 ON THE STACK 
CBAD1 


3TY 

: TYPE 5 BLANKS 

‘PUT @ECWRD1 ON THE STACK 
TYPE @ECWRD1 

[TYPE 2 BLANKS 

EXIT 

ZERROR BURST WAS NOT TRANSFERED TO MEMORY 
[RETURN 


ROUTINE TO DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR 
163710 PRTBAD: air 


#SW3,ASWR 
SRMBA(RO) ,R1 


PRINT THE BAD SECTOR ? 
37BR IF NOT 
:PUT THE END ADDRESS INTO &i 
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AM 
2 015352 016046 900020 MOV SWRDL(RO),<(SP) ;FIND THE BEGINNING OF THE SECTOR 
015 36 066016 00214 ADD SRMWC(RO). (SP) SUBTRACT THE WORDS NOT TRANSFERED 
4 015262 00100 BNE 
345 015264 005726 TST (SP)+ gRESTORE STACK 
6 015266 000207 RTS PC TEXIT=-NO WORDS XFERRED 
347 015270 005046 1$: CLR -(SP) [MAKE THE UPPER DIVIDEND 0 
348 015272 016046 000022 MOV SSSEC(RO),-(SP) :DIVIDE THE WORDS XFERED BY THE SECTOR SIZE 
9 015276 004737 032040 JSR PC,$DIV : E 
350 015302 005716 TST (SP) SREMANDER = 0 ? 
351 015304 001403 BEQ 2$ *BR IF IT IS = COMPLETE SECTOR TRANSFERED 
33¢ 015306 006316 ASL (SP) [CONVERT THE RESIDUAL SECTOR INTO BYTE COUNT 
353 015310 161601 SUB (SP) ,R1 *SUBTRACT IT FROM THE END ADDRESS 
354 015312 000410 BR :FINISH THE SIZING 
355 015314 162701 001000 2$: SUB #256. *2,R1 [SUBTRACT FULL SECTOR FROM END ADDR (IN BYTES) 
356 015320 122760 000005 000024 CMPB  «« #5,$CODE(RO) | :WAS OPERATION READ HEADER & DATA ? 
357 015326 001002 BNE ¥$ <BR IF NOT 
358 015330 162701 000004 SUB #4,R1 SSUBTRACT HEADER SIZE FROM ADDR 
359 015334 062706 000004 3$: ADD #4,SP SRESTORE THE STACK POINTER 
360 015340 104414 001203 DISPLY ,$CRLF CRLF 
361 015344 104414 075116 DISPLY ,LIN11H ‘PRINT THE HEADER 
362 015350 122760 000005 000024 CMPB. #5,S$CODE(RO) | :WAS OPERATION READ HEADER & DATA ? 
363 015356 001021 BNE 4$ [BR IF NOT 
364 015360 104414 075171 DISPLY ,LIN11 [TYPE "ADDR __HEADER’ 
365 015364 010146 MOV R1,-(SP) [PUT THE ADDRESS ON THE STACK 
366 015366 004737 023202 JSR PC, LINOCT *TYPE THE ADDRESS 
367 015372 104414 075232 DISPLY ,BLNKS3 :TYPE 3 BLANK 
368 015376 012146 MOV (R1)+,=(SP) SPUT WORD ON STACK 
369 015400 004737 023202 JSR PC,LINOCT STYPE THE 1ST HEADER WORD 
370 015404 104414 075234 DISPLY ,BLNKS1 *TYPE 1 BLANK 
371 015410 012146 MOV (R1)+,=(SP) :PUT WORD ON STACK 
372 015412 004737 023202 JSR PC,LINOCT [TYPE THE 2ND HEADER WORD 
373 015416 104414 001203 DISPLY ,$CRLF CRLF 
375 015422 104414 075212 4$: DISPLY ,LINI1A :TYPE "ADDR DATA’ 
376 015426 012702 000010 5$: MOV #8. .R2 *8. DATA WORDS PER LINE 
377 015432 010146 MOV R1,-(SP) *PUT THE ADDRESS ON THE STACK 
378 015434 004737 02320 JSR PC;LINOCT *TYPE THE ADDRESS 
379 015440 104414 07523 DISPLY ,BLNKS2 ‘TYPE 2 BLANKS 
380 015444 020160 002144 6$: CMP R1,$RMBA(RO) :PRINTED ALL THE SECTOR ? 
381 015450 001412 BEQ *BR IF ALL PRINTED 
382 015452 104414 075234 DISPLY ,BLNKS1 TYPE 1 
383 015456 012146 MOV (R1)+,-(SP) *PUT THE DATA ON THE STACK 
384 015460 004737 023202 JSR PC,LINOCT *TYPE THE DATA 
385 015464 005302 DEC R2 *DECREMENT THE HORIZONTAL COUNT 
386 015466 001366 BNE 68 *BR IF NOT AT THE END OF THE LINE 
387 015470 104414 001203 DISPLY ,$CRLF CRLF 
388 015474 000754 BR SRESTORE THE WORDS/LINE COUNT 
389 015476 104414 001203 7$: DISPLY |$CRLF CRLF 
390 015502 104414 001203 DISPLY ‘S$CRLF CRLF 
331 015506 000207 8$: RTS PC RETURN 
338 :ROUTINE TO DO AN RTC = DRIVE SELECTED IN RO 
395 : MOV #DPB,RO :DPB ADDRESS 
96 : JSR PC,RINCTR 
97 ; RETURN 
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399 015510 1110 ? 067556 RTNCTR: MOVB = (RO) ,GENDPB :MOVE THE DRIVE # TO THE GENERAL DPB 
400 015514 112737 000117 067560 MOVB #RTC_ GENDPB+SCOMND “COMMAND CODE 

401 015522 004037 041000 1$: JSR RO,RM80 :DRIVER ENTRANCE 

402 015526 067556 GENDPB [DPB ADDRESS FOR COMMAND 

403 015530 000774 BR 1$ “DRIVER DIDN'T ACCEPT COMMAND 

404 015532 000207 RTS PC RETURN 

406 ROUTINE TO DO A RECALIBRATE USING ACTIVE DPB 

408 : MOV #DPB,RO :DPB ADDRESS 

409 : JSR PC,RECALT 

410 : - RETURN 

412 015534 010037 015560 RECALT: MOV RO,2$ sLOAD THE DPB ADDRESS 

413 015540 116060 002140 000027 MOVB  $RMCS1(RO),$PREVO(RO)  ;SAVE THE PREVIOUS COMMAND 
414 015546 112760 000107 000002 MOVB § #RECAL, $COMND(RO) “LOAD THE NEW COMMAND 

415 015554 004037 041000 1$: JSR RO, RMSO sSTART THE RECALIBRATE 

416 015560 000000 2$: .WORD 0 DPB ADDRESS 

417 015562 000774 BR 1$ *DRIVER DIDN'T ACCEPT THE COMMAND 
418 015564 005760 000016 3$: 1ST STATUS (RO) *SEE IF FINISHED 

419 015570 001775 BEQ 3$ - SIF EQ NO 

420 015572 737 023254 JSR PC ,READDR “DECREMENT THE ADDRESSES 

421 015576 012660 000034 MOV (SP)+, $PREVA+2(RO) :MOVE THE CYLINDER ADDRESS 
422 015602 112660 000033 MOVB (SP) +, $PREVA+1 (RO) “MOVE THE TRACK ADDRESS 
423 015606 112660 000032 MOVB = (SP) +, S$PREVA(RO) [MOVE THE SECTOR ADDRESS 
424 015612 005060 000012 CLR $CYL (RO) SCLEAR THE CURRENT CYLINDER ADDRESS 
425 015616 005060 000010 CLR $SEC(RO) [CLEAR THE CURRENT TRK/SEC ADDRESS 
426 015622 000207 RTS PC [RETURN 

428 ROUTINE TO A RECAL WITH NO DPB ACTIVE 

430 : MOVB #DRIVE,GENDPB ;DRIVE ADDRESS 

431 ; JSR PC,RECALO 

432 ; RETURN 

434 015624 112737 000107 067560 RECALO: MOVB $#RECAL,GENDPB+SCOMND _ ;RELCALIBRATE COMMAND 

435 015632 004037 041000 1$: JSR RO, RM&O SDRIVER ENTRANCE 

436 0156 067556 GENDPB [DPB ADDRESS FOR COMMAND 

437 015640 000774 BR 1$ “DRIVER DIDN'T ACCEPT THE COMMAND 
438 015642 005737 067574 2$: TST GENDPB+STATUS :SEE IF FINISHED 

439 015646 001775 BEQ 2$ [BR IF NOT FINISHED 

440 15650 000207 RTS PC 

45 ZUTILITY READ HEADER ROUTINE 

45 CALL: 

460 : MOV #DPB,RO :DPB ADDRESS 

461 MOV WSECTOR.=(SP) SECTOR ADDRESS 

4 ; MOV ATRACK, - STRACK ADDRESS 

46 ; MOV ACYLINDER,-(SP) :CYLINDER ADDRESS 

464 ; JSR PC ,READDR 

465 ; RETURN 

469 15652 116637 000004 067567 READHD: MOVB 4(SP),GENDPB+S$TRK : TRACK ADDRESS 

468 015 116637 75 MOVB (SP) ; GENDPB+$SEC [SECTOR ADDRESS 

138 bisere 419087 ie Win TAS) eenOPee CORIVE MIRBER eM ORESS 

471 13900 112787 173 067560 MOVB §#RDHD,GENDPB+SCOMND COMMAND 
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2$: 


—BG 9 fe Se Se Ge Ge te 
o 


2$: 


3$: 
4$: 


5$: 
6$: 


7$: 


#-2,GENDPB+$WCNT “WORD CTR = 2 
0,RM80 :DRIVER ENTRANC 


RESS FOR COMMAND 
$ DRIVER DIDN'T ACCEPT COMMAND 
 ppaehetapyee 3FINISHED? 


3 F_NOT 
(SP) ,6(SP) ' gADJUST STACK FOR RETURN 
#6,SP aa RETRUN POINTER 


Heyl THE PRESENT OPERATION 


#COUNT,RETRY § RETRY COUNT 
PC, $RETRY 


sRETRY UNSUCESSFUL 

SUCESSFUL RETRY 

NOTE: IF A DIFFERENT ERROR OCCURS DURING 
gRETRY, THE ROUTINE EXITS TO ‘ERPRC1° 


PC,GODRIV sRE-START COMMAND 

STATUS (RO) = COMMAND FINISHED? 

1$ ‘BR IF NOT 

2$ “BR IF ERROR 

RETRY+1 S INCREMENT RETRY COUNT 

#2, (SP) INCREMENT RETURN 

#B1T7,STATUS(RO) wie! COMMAND TERMINATE NORMALLY ? 
MASK 1S ERROR MASK 0 ? 

SRMERT (RO) MAKE SURE THAT THE DRIVE ERROR REG IS CLEAR 


sBR IF NO 
4$ sCONTINUE RETRY 
Got eaten 3SAME ERROR? 


sBR IF NOT 
RETRY+1 INCREMENT RETRY COUNT 
RETRY,RETRY*1 : ? 
SRETRY BR IF NOT DONE 
PC,LINES [REPORT DIFFERENT ERROR 
PC-LINE? PRINT LIN 
(sP)+ SADJUST STACK POINTER FOR DIRECT RETURN 
LINSM : "DIFFERENT ERROR DURING RETRY* 
ERPRC1 REPORT THE ERROR 





4 
5 
: 016072 
8 0161 
9 01610 
10 01611 
11 016116 
ig 016120 
14 016124 
15 Bie183 
16 016134 
17 016142 
18 016144 
19 016152 
20 016156 
21 016160 
$8 016164 
24 016170 
25 016176 
26 Bios) 
e7 16698 
28 01621 
016220 
gloss? 
1 016226 
32 016232 
% 016236 
5 016240 
36 
37 
38 
39 
40 
$3 
23 
44 
45 o16ehe 
$8 016244 
47 01 36 
48 01625 
49 016254 
29 01625 
3) OI 
53 01 i 
¢¢ 1627 
5 01 ‘8 
28 16 
16304 


000300 
002144 
000006 


016240 
000002 
000060 
016240 
000062 
000062 
000056 
000002 
016240 
900040 
016240 
000070 


000070 
000064 


000016 


016240 
016240 


000024 
000024 
000060 


000024 
000036 
000066 


000002 


STATIS: 


1$: 


2$: 


3$: 
FACTOR: 


GE TBUF : 


1$: 
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2b TO UPDATE THE PERFORMANCE SUMMARY STATISTICS 








V #DPB,RO ;DPB ADDRESS 
SR PC, STATIS 
RETURN 
BIT #BITO7!BIT06,$TATUS(RO) ;CHECK FOR DATA TERMINATION 
BEQ $ :BR IF NOT DATA TERMINATION 
MOV SRMBA(RO) ,FACTOR “STORE THE FINAL BUFFER ADDRESS 
SUB SBUF(RO),FACTOR ;SUBTRACT THE INITIAL ADDRESS 
BEQ 7BR IF NO DATA TRANSFER 
ASR FACTOR [CONVERT TO A WORD COUNT 
C #2,$CODE(RO) | ;SEE IF COMMAND WAS A WRITE 
BEQ [BRANCH IF Y 
cm P #0. SCODE(RO) [PRESENT OPERATION AN AUTO WRITE CHECK ? 
ADD FACTOR, SWRI TN(ROS sADD WORDS WRITTEN DURING WRITE DATA 
ADC SWRITN+2(RO) DID HIGH WORD OVFLO AFTER ADDING CARRY ? 
CLR SWRITN+2(RO) CLEAR HIGH WORD 
INC SWTOFL (RO) [AND COUNT WRITE OVERFLOW 
cmp #2, SCODE(RO) :SEE IF COMMAND AN WAS A WRITE 
ADD FACTOR, SENDAT (ROS SEND OF PASS DATA WORD COUNT 
ADC SENDAT#2(RO) AD Y 
ADD FACTOR, $READ(RO) ;UPDATE THE READ WORD COUNT 
Apc $READ+2(RO) DID HIGH WORD OVFLO AFTER ADDING CARRY ? 
CLR SREAD+2(RO) SCLEAR HIGH WORD 
INC SRDOFL (RO) [AND COUNT READ OVERFLOW 
RTS PC 
.WORD 0 SUSED FOR WORDS TRANSFERED 
:ROUTINE TO GET A BUFFER 
mov #DPB,RO :DPB ADDRESS 
CLR - =CLEAR THE STACK 
JSR PC, GETBUF 
RETURN ;BUFFER ADDRESS WILL BE ON THE STACK 
*STACK WILL BE ZERO IF NO BUFFER AVAILABLE 
MOV R1,-(SP) :SAVE R1 
MOV R2,-(SP) SAVE Re 
MOV R3,-(SP) TSAVE R 
MOV BUF TBL .R2 ‘NUMBER OF SEPARATE BUFFERS 
BEQ 4 *BR IF NONE AVAILABLE 
MOV WRUFTBL+2.R1 FIRST ADDRESS OF ALLOCATION TABLE 
CMP SWRDL(RO).2(R1) :SEE IF THERE IS A BLOCK LARGE ENOUGH 
BLOS 2$ [BRANCH IF IT IS 
DEC Re *DECREMENT TABLE COUNT 
BEG 5 *BR IF THROUGH TABLE 
ADD #4.R1 S INCREMENT TABLE POINTER 
MOV (R1),10(SP) *BUFFER ADDRESS TO STACK 


2s: 
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RADAR 
—— 
-~ oO 


an 
yeaa y aaa 
2ogegess 


$ 


COSOSCSOSOOOCOCOOOSOOOOOSoOoOO 
par Seer Seed 


a a a oh oh oh oh a od I 
AADAAAAAAAAO 


WAG 
ANS 


no 


S 


FEFSEZE 
FORRNVSO 
eseeeesse 


Seeeeeecence  szazavecsesececeazss | 
ad a ot od ot 


TEREPERREE 
PREPS Meee 


DOOOCSCSCOSSOCOOSOoOSSooO 
& 
i=) 


SELESSRELLESS 


ek dd td dd td ed 
MISS FS 
Sonat: 


eee eed eed ad and ed oe ed od ot 


eb eed ead od od 

Fwn-o 
SOOooooooooeoo 
AAAAAQ 

Beas 

SNaoe 


001407 
360 


S= 


: 


wi 
SSSNSUNSSOS =u 
NNW “WWI NIN 


= A) 
| 
NO 
PT) 


WN @ SN 






S 


1 
4 
0 


000020 
00002: 
a00098 


001654 


000004 


000002 


000002 


000002 


3$: 


4$: 


5$: 


sROUTINE TO 
; CALL: 


RELBUF : 


1$: 


2s: 


3$: 
4$: 


RTS 


WRDL (RO) ,2(R1) 


5$ 

BUF TBL 

5$ 

Ri ~R3 
R3 

tae, (R 


DL (RO) 
SWRDL (RO), (R1) 
SWRDL (RO) 


1)+ 


(R3)+,(R1)+ 
R 


sADJUST BUFFER WRD CNT 
3BR IF ees IS cone 
ONVERT # WORDS T 


3C S$ TO BYTES 
gMAKE NEW STARTING ADDRESS 
RETURN # BYTES TO WORDS 


SDECRERENT ENTRIES COUNT 

:BR IF ALLOCATION TABLE EMPTY 
;DECREMENT TABLE COUNT 

3BR IF_ITEM WERE LAST ENTRY 
sMOVE TABLE POINTER 

;POINT TO NEXT ENTRY 

;MOVE ITEMS 


rs Maar of TABLE COUNT 
i CONTIN “ abe NOT AT END OF TABLE 


(SP)+,R3 REST 
(SP)+,R2 RESTORE R2 
(SP)+-R1 SRESTORE R1 
PC 3 URN 
BUFFER BACK IN TABLE 
#DPB,RO :DPB ADDRESS 
PC ,RELBUF 
R1,-(SP) :SAVE R1 
R2,-(SP) SSAVE R2 
R3,-(SP) *SAVE R3 
4;-(SP) SSAVE R4 
*=(SP) SSAVE RS 
#BUFTBL+2,R1 :BEGINNING OF TABLE 
UF TBL .R2 SENTRY COUNT 
*BR IF EMPTY TABLE 
SHLDWC(RO).R3 TRIAL _ADDRESS 
R £ TO BYTE COUNT 
$BUF (RO) ,R3 CADDRESS OF HIGHER ADJACENT BLOCK 
(R1),R3 :UPPE ADJACENT BLOCK 
#4,R1 ONCREMENT POINTER 
R2 3DECREMENT ENTRY COUNT 
1$ “CONTINUE SEARCHING 
$BUF(RO),(R1) PUT THE “BUFFER BLOCK INTO THE TABLE 
SHLDWC (RO) ,2(R1) K WR CNT 
TBL S INCREMENT E Y COUNT 
31N CREME MENT a FOR USE LATER 
4 A LOWER ADJACENT BLOCK IS IN THE TABLE 
$BUF (RO), (R1)+ atid ADDRESS TO TABLE 
SHLDWC(RO),(R1)* WRD CNT TO TABLE 
TBL S INCREMENT ENTRY COUNT 


$BUF (RO) 


(R1) 


SHLDUC (RO), 2(R1)° 
R2,-(SP) 


BUF TBL .R 


2 


EXIT 
SRELEASED BUFFER IS LOWER ADJACENT 
s INCREMENTED WRD CNT 


3SA 
SENTRY COUNT 


SEQ 0094 


rm 
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115 0165 
16 Besse 
11 16008 
13 01654 
119 016544 
1 816388 
121 01655 
122 016554 
123 01655 
124 016 
125 0165 
1 $ 016564 
127 016566 
128 016574 
129 016600 
130 016602 
131 016606 
136 piGel9 
133 01661 
134 016614 
13 Sai 
13 Ses 
138 016624 
139 016626 
140 016630 
ig 
103 
144 
145 
146 
147 
148 
149 
150 016632 
151 016634 
136 016642 
153 016644 
154 016650 
155 016654 
138 016660 
157 01 
158 0166 
159 01667 
160 016674 
161 01667 
166 0167 
163 01670 
164 016704 
163 016706 
ig 
168 
169 
170 
171 


He 


23 


SSsss 
Se=3 


aia ay ay SE 
S Sass 


S 


207 


escoo=cce== 
RUONRESS ONS 
ro) — 


33 
YS 


=A 


SSNS 


MSnNw 


358 


sits 


5$: 


6$: 


7$: 
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#BUF TBL+2,R5 
2(R5) .RA 
(RS) ,R4 
R4,(R1) 
#4,R5 

R2 

5$ 

(SP)+ 

8$ 

(SP)+,R2 
2(R1).2(R5) 
BUF TBL 

RI RO 


#4-R 
(R5)+, (R1)¢ 
(R5)+, (R1)+ 


sBEGINNING OF TABLE 
sBLOCK SIZE (IN WORDS) 
sCHANGE TO BYTE COUNT 
3ADD BLOCK BEGINNING ADDRESS 

3R1 STILL POINTS TO_INSERTED ENTRY 
sLOWER ADJACENT IN TABLE 
INCREMENT POINTER 

Hs eae ENTRY COUNT 


CON L 

:RESTORE STACK POINTER 
TRESTORE R2 

S INCREMENT LOWER BLOCK LENGTH 
:DECRENENT ENTRY COUNT 


3GET READY TO COMPRESS 
See ame ENTRY 


: ESS E 

sMOVE SIZE FIELD DOWN 
sDECREMENT ENTRY COUNT 
ee to NOT FINISHED 


R 
sRESTORE R4 


sFILL THE ASSIGNED BUFFER (IF WRITE OR WRITE CHECK COMMAND) 


ALL 


F ILBUF : 
1$: 


2$: 
3$: 


4$: 


BR 
RESREG 
RTS 


MOV 
JSR 
RETURN 


#DPB,RO 
#BUF ADR , SBUF (RO 
#PATTERN, SPATTC (RO) 


PCF ILBUF 


#4, $CODE (RO) 
4$ 


SPATTC (ROS ,R4 
STNDAT(R4) .R5 


#16.,R 
(R5)+,(R1)+ 
R2 
4% 
R3 
33 
$ 
PC 


#DPB,RO 
PC, GODRIV 


3DPB ADDRESS 
3;LOAD BUFFER ADDRESS INTO THE DPB 
sPATTERN CODE 


sSAVE THE REGISTERS 
3SEE_IF READ COMMAND 


3 READ 

sBUFFER AD 

sPOSITIVE WORD COUNT 
sRELATIVE PATTERN ADDRESS 
Feary hl a ADDRESS 


3PA COUNT 
MOVE THE PATTERN INTO THE BUFFER 
sDECREMENT THE WORD COUNT 

BR D D COUNT = 0) 

Fh te gl THE PATTERN COUNT 
CONTINUE DISTRIBUTING THE PATTERN 
aResrone THE REGISTERS 


+ Hone THE COMMAND FOR THE DPB IN RO 


3DPB ADDRESS 





mo 


. F 8 
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1 

138 016710 910046 GODRIV: MOV RO.=¢ = (SP) AVE RO 

174 01671 1003 016722 MOV < SURRENT DPB ADDRESS 

175 016716 004037 041000 1$: JSR RO, 2580 *CALL THE DRIVE HANDLER 

176 016722 23: ~WORD 0 [DRIVE BLOCK ADDRESS GOES HERE 

1 O167 4 HALT ;DRIVER REJECTED REQUEST 

178 016726 01 MOV (sP TRESTORE R 

179 016730 06 1 000046 ADD Ue SOPERCRO S INCREMENT THE OPERATION COUNT 
180 016 005560 000050 ADC SOpERC ceecRO 

181 016742 026 000034 000012 CMP SPREVAS (ROD. SCYL(RO) | ;DID COMMAND REQUIRE A CYLINDER CHANGE ? 
182 016750 00141 BEQ 3 7BR IF NO 

183 016752 062760 000001 000042 ADD #1,$ENDSK(RO) INCREMENT END OF PASS SEEK COUNT 
184 014760 005560 000044 ADC SENDSK +2 (RO) ADD ANY CARRY 

185 016764 062760 000001 000052 ADD fi, $P0s T(RO) i INCREMENT SEEK COUNT 

186 016772 005560 000054 ADC Ose tROD TADD ANY CARRY 

187 016776 000207 3$: RTS 


mo 


6 8 
CZRNAAQ RA RMBO PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 15 SEQ 0097 

1 :ROUTINE TO SETUP PARAMETERS FOR A SEQUENTIAL READ OR WRITE OF THE DISK 
5 3 mov #DPB,RO ;DPB ADDRESS 
5 ; MOV #=2,$PACK(RO) WRITE PACK’ & "TEST FLAG 
, : MOV #=1,$PACK(RO)  ;"WRITE PACK" FLAG 
b : MOV #1,$PACK(RO) "READ PACK’ FLAG 
11 : JSR PC, WRTPK SCALL READ OR WRITE PACK 
13 : RETURN 
14 017000 004737 027462 WRTPK: JSR PC,GETLMT sGET ADDRESS LIMITS 
15 017004 005760 00005 TST SOPERC* 2(RO) 1S THIS THE FIRST OPERATION ? 
16 017010 901011 BNE 1$ :BR IF NO 
17 017012 005760 000046 TST SOPERC (RO) [1S THIS THE FIRST OPERATION ? 
18 017016 001006 BNE ‘BR IF NO 
19 017020 012704 000010 MOV #SSEC,R4 [GET INDEX TO SECTOR ADDR STORAGE IN DPB 

017024 004737 020130 JSR PC, CKLMTS 760 CHECK DISK ADDRESS LIMITS 
1 017030 000462 BR 3$ [BR IF NOT AT END OF SEQUENTIAL ADDRESSING 
2 017032 000000 HALT [SHOULD NOT GET HERE 
24 017034 116060 002140 000027 1$: MOVB  $RMCS1(RO),$PREVO(RO) ;SAVE CURRENT PARAMETERS 
25 017042 016060 000010 000032 MOV SSEC (RO) , SPREVA(RO) SSAVE PREVICUS TRACK/SECTOR ADDRESS 
26 017050 016060 000012 000034 MOV S$CYL(RO) SPREVA®2(RO) SAVE PREVIOUS CYLINDER ADDRESS 
27 017056 016060 002146 000010 MOV AROS RO) [CURRENT SECTOR & TRACK ADDRESS 
28 017064 016060 002174 000012 MOV SRMDC (RO). $CYL (RO) [CURRENT CYLINDER ADDRESS 

017072 032760 001000 002172 BIT #SSEI,S$RMOF(RO) :1S SSEI STILL SET ? 
1017100 001402 BEQ [BR 

017102 005360 000010 DEC $SEC(RO) 31F SO, THEN BACKUP ONE SECTOR TO REFLECT THE 

OPER ADDRESS TO BE ACCESSED WHEN READING OR 

4 CWRITTING THE NEXT SEQUENTIAL SECTOR. 

017106 012704 000010 2s: MOV WSSEC RS :GET INDEX TO SECTOR ADDR STORAGE IN DPB 
7 017112 004737 020130 JSR PC, CKLMTS £60 CHECK DISK ADDRESS LIMITS 

017116 000427 BR $° NOT AT END OF SEQUENTIAL ADDRESSING 
9 017120 116060 000140 000010 MOVB MINSEC (RO) ssecc ) 3RESET SECTOR ADDRESS 
40 017126 116060 000134 900011 MOVB =I (RO) .$T (RO) [RESET TRACK ADDRESS 
41 017134 01 0001 12 MOV RINCYLCR ) SeHLin ) *RESET CYLINDER ADDRESS 
de O171h2 1 900004 900026 MOVB = #4 6) ~~ -;SET CODE TO READ DATA 
43 017150 122760 177776 6 CMPB 5° SPACK(RO) :WAS WRITE DATA PACK iN PROGESS ? 
44 017156 14 BEQ 8s SBR IF YES (START TESTING) 
45 0171 737 031370 JSR ,£0P2 ;DROP THE DRIVE (NORMAL TERMINATION) 
46 O17 164 000020 161762 BIT Ae aS [1S SWITCH 4 SET ? 
47 017172 471 ' BEQ 9$ [BR IF NO 
48 017174 000744 BR 2s SRE-CHECK FOR BSF & SSF TRACKS 
50 017176 12704 1 3$: mov #SSEC,R 3GET INDEX TO SECTOR STORAGE 
1917202 013705 0014 ROY RDC Mts [WORD COUNT IS MAX 
‘ 17 ? 3 JSR *CHECK WORD COUNT FOR MAXCYL/MAXTRK 

17212 0105 2 MOV URDL (ROD [GET WORD COUNT 

34 7 16 760 000 000020 BIC : A SWRDL (RO) 3SECTOR BOUNDRY FOR WRITTING 
26 17286 1 498 900021 INCB SURDL 1(RO) iser TO ONE SECTOR 

17 01 0 000004 4$: MOV SURDL (RO), SWCNT(R sSTORE FOR 2°S COMPLEMENT WORD 


loslmn) 
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3 
et 
$8 
64 
65 
e 
‘ 
r 
7% 
75 
7 

78 
79 
80 


17240 
O18 
1725 


a | 


— 


~“ 


SANNNS 
Pease 


os me cD cee ce ed ced ed ed oe od od od 
S 


ANNAN 
bet> 4 
ww 
AU 


SOoOOoOoOSo BOOCOOOOOOoOoOooOO 


aa 








Bs 


020 


000026 


000110 
000022 


000122 


5$: 


— ( 4 IAQ} » SHLDWC (RO) 


He z VSSSEC (ROD 
SPACK (RO) 


4 ,SCODE (RO) 
ARBDAT SC OMND (RO 05 


Rony 
2, $CODE (RO) 
#2,8¢0 
P “gers 
pian ATTC(RO) 


PACK 

$PACK (RO) 
SNEXT (RO) 
(SP)+ 


MAIN 


D COUNT TO 2°S COMPLEMENT 
7SECTOR SIZE FOR READ 


sREAD OR WRITE PACK ? 
F WRIT 


3BR I 
;CODE FOR READ DAT 
fash. CODE FOR OPERATION 


EXI 
LOCKED i* READ ONLY MODE ? 
CODE. FOR WRIDAT 


:GET PATTERN CODE 
*PATTERN C 
:SET PARAMETERS SELECTED INDICATOR 


sSET ‘TEST’ rue 
iSET DPB *TEST® 
CLEAR PARAMETER” SELECTED’ INDICATOR 
CLEAR STACK LEVEL 
3 JUMP TO MAIN BACKGROUND LOOP 


sHOLD WORD FOR, *RELBUF’ ROUTINE 
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MAIN 
1 : GENERATE PARAMETERS FOR THE OPERATION 
‘ : MOV :DPB ADDRESS 
i : JSR ac, Paro ar 
a : RETURN 
5 017370 9047 7 027462 GENPAR: JSR PC,GETLMT :GET ADDRESS LIMITS 
8 017374 737 037024 JSR PC, SRAND [CYCLE THE RANDOM NUMBER GENERATOR 
9 017400 005737 001440 TST RDONLY LOCKED IN READ ONLY MODE ? 
10 017406 00101 BNE 1$ BR I 
11 017406 032777 000001 161540 BIT #SWO,aSWR [SEE IF "Su0 S 
12 017414 901012 BNE 1$ 3BR IF SET - EE AD ONLY 
1 017616 012 900010 MOV #8..R5 ;READ/WRITE SELECTION DIVISOR 
14 017422 004737 032014 JSR PC, GETREM *GET SELECTION VALUE 
15 017426 020537 001476 CMP R5.RATIO 3DET ERMINE IF READ OR WRITE 
16 017432 103003 BHIS 
17 017434 012705 000002 MOV #2,R5 SSELECT WRITE DATA COMMAND 
18 017440 000407 BR 2$ SSELECT ADDRESS 
20 017442 013705 037124 1$: MOV SLONUM,RS :SELECT READ OPERATION CODE 
31 017446 000305 SWAB [SWAP BYTES IN 
: 017450 042705 177776 BIC #°C1,R5 3MASK OUT ALL BUT BIT 
23 017454 062705 000004 ADD #4,R5 STABLE OFFSET FOR READ CODE 
24 017460 110560 000114 2$: MOVB RS.SNCODE(RO) :COMMAND SELECTION CODE TO CONTROL BLOCK 
25 017464 016060 002146 000116 MOV SRMDA(RO), SNSEC (ROD :SECTOR AND TRACK 
3 17472 016060 002174 000120 MOV SRMDC (RO), SNCYL(RO) *CYLINDER NUMBER 
28 017500 032760 001000 002172 BIT #SSEI,SRMOF(RO) ;1S 'SSEI* STILL SET ? 
017506 001402 BEQ 5 T 
017510 005360 000010 DEC $SEC(RO) TIF $0 THEN BACKUP ONE SECTOR TO REFLECT THE 
1 [PROPER ADDRESS TO BE ACCESSED WHEN READING OR 
TROT E ING. THE NEXT SEQUENTIAL SECTOR. 
33 017514 3$: 
3 017514 005737 001506 THEAD: TST RANDOM zENABLE RANDOM ADDRESS SELECT ? 
36 017520 001427 BEQ RANCYL :YES 
7 017522 005760 000050 TST SOPERC+2(RO) § :IS THIS THE FIRST OPERATION ? 
017526 001003 BNE 1$ :BR IF NO 
9 017530 005760 000046 TST SOPERC (RO) t1S THIS THE FIRST OPERATION ? 
40 017534 00140 BEQ 2$ *BR IF YES 
4¢ 017536 0127 000116 1$: MOV #SNSEC RG sGET INDEX TO SECTOR ADDR STORAGE IN DPB 
43 01754 737 020130 JSR PC, CKLATS £60 CHECK DISK ADDRESS LIMITS 
ra O17 900412 BR 3 *BR IF NOT AT END OF SEQUENTIAL ADDRESSING 
45 017550 11 000140 000116 28: MOVB MINSEC(RO),$NSEC(RO)  ;RESET SECTOR ADDRESS 
46 017556 116060 000134 00011 MOVB  MINTRK(RO).$NTRK(R *RESET TRACK ADDRESS 
47 017 016060 000130 000120 MOV MINCYL(RO).SNCYL(RO) — :RESET CYLINDER ADDRESS 
48 017572 900761 BR 1$ sRE-CHECK FOR BSF & SSF. TRACKS 
49 017574 000137 017746 3$: JMP RANSI2Z *GO CHECK FOR RANDOM WORD SIZE 


Soooceoo 
= eg ee Na 
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8 
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15 017640 
16 017644 
17 017646 
18 017652 
19 017654 
20 017660 
21 017664 
22 

23 
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25 017670 
26 017674 
27 017700 
28 017702 
$ 017706 

017710 

31 017714 
3% 017720 
34 

35 

36 017724 
37 0177 
38 017734 
39 017736 
40 017742 
41 017746 
42 
43 

Os 

45 017746 
46 017752 
47 017756 
48 017760 
49 017762 
50 0177 
51 01777. 
2$ 017774 
ecm 
55 020002 
38 020006 
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;GENERATE A RANDOM CYLINDER ADDRESS BETWEEN VALUES ‘MINCYL’ & ‘MAXCYL* 
3GET MAXIMUM CYLINDER Mat + 


BR 
3GET NUMBER OF E SECTORS 

Fes pet gel DIFFERENCE TO USE AS DIVISOR 
ET THE RANDOM vor 


3"MINCYL® AND ‘MAXCYL 
THEY AR 


7BR_IF 
. GET 


THE SAME ? 


R_ADDRESS 
ZSTORE CYLINDER ADDRESS IN DPB 


7BR_IF T 
GET 


* THE SAME ? 


DRESS 
ZSTORE TRACK ADDRESS iN DPB 
3GENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES ‘MINSEC’ & ‘MAXSEC’ 
2GET MAXIMUM SECTOR ADDRESS 


36 
NEW SECTOR 


*MINSEC* AND "MAXSEC’ 
HEY . 


THE SAME ? 


ADDRESS 
ZSTORE SECTOR ADDRESS IN DPB 
zMAKE SURE ADDRESS JUST GENERATED IS NOT "BSF* OR ‘SSF* TRACK 


3GET INDEX TO SECTOR ADDR STORAGE IN DPB 
igs iF NOT ie ors LIMITS 


CYCLE T 


HE RANDOM 
‘60 GENERATE NEW ADDRESS 


NUMBER OF ALLOWABLE CYLINDERS 
a ek Oa nea” USE AS DIVISOR 


T THE RAND 
NCW CYLINDER 
RANDOM TRACK ADDRESS BETWEEN VALUES ‘MINTRK® & "MAXTRK* 
sGET oa ay TRACK eee 
2 ee 

NUMBER OF ALLOWABLE TRACKS 
ZINCREMENT DIFFERENCE TO USE AS DIVISOR 
7GET THE RANDOM AUGMENT 
NEW TRACK AD 


ND OF Bed ell i ADDRESSING 
NUMBER GENERATOR 


7GENERATE A RANDOM BUFFER LENGTH BETWEEN 6 & THE VALUE IN ‘WRDCNT* 


RANCYL: MOV MAXCYL (RO) RS 
CMP MINCYL(RO), *R5 
BEQ 1$ 
SUB Seren ok5 
INC R 
JSR PC,GETR 
ADD BS ACTL CRO) oR 
1$: MOV RS, SNCYL(R 
sGENERATE A 
RANTRK: MOV MAXTRK (RO) ,R5 
a MINTRK(RO), *R5 
SUB MINTRK(RO) ,R5 
INC 
JSR PC,GETR 
ADD BO EEO) -R 
1$: MOVB R5,SNTRK(R 
RANSEC: MOV MAXSEC (RO) RS 
A INSEE CAO? *R5 
SUB MINSEC(RO) RS 
INC RS 
JSR PC,GETR 
ADD MINSECCROD -R 
1$: MOVB RS, $NSEC(R 
MOV #SNSEC RS 
i PC,CKLMATS 
JSR PC, $RAND 
JMP RANCYL 
2$: 
RANSIZ: MOV WRDCNT RS 
TST RANDWC 
BNE 2s 
INC RS 
JSR hat 
CMP R546 
BGE 
1$: JSR PC, SRAND 
BR RANSIZ 
2$: MOV #SNSEC .R4 
JSR PC, CHKWC 


ET 
;SEE IF 


MAX WORD C 


;GET OUNT 

: SELECT A RANDOM WORD COUNT ? 
3 INCREMENT by MAXIMUM WRD CNT 
3D LUE 


IVIDE BY MAX 
WORD COUNT 
;BR_IF 


re LESS THAN 6 ? 
;CYCLE THE RANDOM NUMBER GENERATOR 
INDEX Ex TO seCron st STORAGE 


OUNT TOO LARGE 
;IN REMAINDER OF TRACK. IF SO, TH 


TO FIT 
EN ADJUST 


SEQ 0100 
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8 ;WORD COUNT TO FIT ON TRACK. 
5 0 0012 122760 000002 000114 38: CMPB #2. SNCODE (RO) TWRITE OPERATION ? 

60 0200 100 BNE [BR IF NO 

61 020022 042705 000377 BIC #377, RS SWRITTING PARTIAL SECTOR ? 

62 020026 001002 BNE 7BR IF NO, ELSE, 

63 020030 012705 000400 MOV #356 ‘WRITE AT LEAST ONE SECTOR 

64 020034 010560 000020 4$: MOV 7B uRBL ROD [WORD COUNT 

66 GET A RANDOM PATTERN NUMBER 

68 020060 122760 000002 000114 RANPAT: CMPB 42, SNCODE(RO) :WRITE OPERATION ? 

69 020046 907004 BNE RANXIT BR IF NO 

70 020050 004 020070 JSR PC,GETPAT :GET PATTERN CODE 

71 020054 110 000 MOVB «RS. SNPATC(RO) ;MOV VE PATTERN CODE TO CONTROL BLOCK 


110560 115 
72 020060 012760 177777 000122 RANXIT: MOV el oSNEXT (RO) SET PARAMETERS SELECTED INDICATOR 


fe 020066 000207 RTS SRETURN 
sROUTINE TO SELECT A PATTERN 

020070 012705 000020 GETPAT: MOV #16. ,R5 SELECT PATTERN 
78 020074 005737 001472 TST PATTERN 3ENABL LE RANDOM PATTERN SELECTION ? 
79 020100 001403 BEQ YES 
80 020102 013705 001472 MOV PATTERN,RS SUSE INDEXED PATTERN 
81 020106 06 BR es 3NO 
86 020110 004737 037024 1$: JSR PC ,SRAND :CYCLE THE RANDOM NUMBER GENERATOR 
83 020114 004737 032014 JSR PC,.GETREM 3GET 
84 020120 005705 TST R5 WAS PATTERN ZERO SELECTED ? 
85 020122 001762 BEQ dae 3BR 
86 020124 006305 2s: ASL R MAKE CODE INTO TABLE INDEX 
87 020126 000207 RTS 


NIAY 
WuNgeitttctdeevennun 3 


1 

1 

1 

15 020130 

16 020132 

17 020140 

18 020142 

19 020150 
020156 
020160 
020166 

23 020172 

24 020174 

25 

26 

27 

28 020200 


34 020226 
35 020232 
36 020240 
37 020244 
38 020252 


39 020254 
40 020260 


ri} 020262 


ok 020324 
020326 


= 932-83 
SAASRARS 
FISSSISS 


S 
~ 
$ 


oO 


Ss So 
mM 

—_ 3 
NRoRu 
SWONMf Tw 
MNEAO 


_ 
mM 


—s 


ss s 
35 


o- 
pep 
own 
NON 


000002 
000130 
000001 
000134 
000140 
000140 


000130 


000002 
000134 


000001 


000132 


000001 
000126 


001426 


001430 
000001 


3 THIS oo bh IS USED 79 CHECK Pete att the on THE NEXT 
1S PER Aye d THIS WILL PROTECT AGAINST et G 

;CHECKING FOR MINIMUM ADDRESS VALUES. ALSO 
ADDRESS LIMITS TO LOOK FOR AN END TO THE 


CKLMTS: ADD 
CMP 


V 
1$: CMPB 


BGE 
MO 


vB 

2s: CMPB 
BGE 

MOVB 


3$: CMPB 


6$: CMP 


7$: MOV 


8$: CMP 


9$: RTS 


, pe," 2 
AAA 
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MAIN PROGRAM 


#DPB,RO 
APOINTER,R4 
PC, CKLMTS 
223 


Bae) sMINCYL(RO)” 


MINCYL(RO) ,2(R4)° 
Jens). oMINTRK(RO) | 


MINTRK(RO),1(R 
(RO) RINSEECRO) 


MINTRK (RO), 1(R4) 
2(R 3 IN 
(R4) ,MAXCYL(RO) 
#2, (SP) 

9$ 


FE1,-(SP) 


(R4) ,(SP)+ 


1(R4) , TRKLMT 
4$ 


2(R4) ,FE1 
1(R4) ,#1 
PC 


OMMAND 
ON CUSTOMER DATA BY 
WILL CHECK MAXIMUM 
SeAUENTTAL AEDRESSING. 
:DPB ADDRESS 
[POINTER TO SECTOR STORAGE ($SEC OR $NSEC) IN DPB 
CALL L ADDRESS LIMITS ROUTI 

IF NOT END OF SEQUENTIAL ADDRESSING 
tELSE, RETURN HERE TO RESET DISK ADDRESS 


7RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
7R4 = POINTER TO SECTOR STORAGE BEFORE CALLING THE ROUTINE 


sPOINT .TO SECTOR STORAGE POINT IN DPB 
31S CYLINDER ADDRESS BELOW MIN. ? 


sRESET CYLINDER TO MIN. 
1S TRACK ADDRESS BELOW MIN. ? 


RESET TRACK TO MIN. 
31S SECTOR ADDRESS BELOW MIN. ? 


MINSEC (RO), (R4) me SECTOR TO MIN. 

3LOOK FOR MAXIMUM LIMITS AND END OF SEQUENTIAL ADDRESSING 

oe aa 15 ay ADDRESS AT MAXIMUM ? 
RINSEC (ROD, o(R4) 5 SINCREMENT. 10 ADDRESS 

1(R4) ,MAXTRK(RO)” 
$F sec(mo), (R4) RESET SEE OET TRA ADDRES 


RACK ADDRESS 
NCR EMENT TO NEXT CYLINDER ADDRESS 
31S CYLINDER ADDRESS OVER MAXIMUM ? 


SADJUST RETURN TO RESET DISK ADDRESS PARAMETERS 


sCHECK NOT TO READ OR WRITE BAv SECTOR TRACK 
ier FIRST FE CYLINDER (LAST CYL+1) 
OK LAST USER C R 


E 1F NO LAST USER CYLINDER ? 


T TO NEXT TRACK ADDRESS 
31S TRACK ADDRESS OVER MAXIMUM ? 


O READ OR WRITE _okIP SECTOR FILE TRACKS 
E ON ist FE CYLINDER ? 


TRACK 0 OR 1 ? 


eas aa 





SEQ 0102 


Km 8 
CZRNAAD R © PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 19 SEQ 0103 
1 THIS ROUTINE IS USED TO CALCULATE AND CHECK THE WORD COUNT FORT 
é SDRIVE THAT IS TO DO A DATA TRANSFER ON THE MAXIMUM TRACK OF T e MAX IMUM 
cL YNDERS 1F THE ott LCULATED MAXIMUM WORD COUNT, EXCEEDS THE DESIRED WORD 
4 *COUNT (CONTENTS OF R5), THEN THE DESIRED WORD COUNT IS CHANGED, SO THA 
> THE WORD COUNT suai NOT CAUSE A TRACK OVERFLOW DURING THE TRANSFER. 
7 3 MOV #DPB,RO :DPB ADDRESS 
8 ; MOV #POINTER,R4 [POINTER TO SECTOR STORAGE ($SEC OR $NSEC) IN DPB 
9 ; JSR PC, CHKWC *CALL CHECK WORD COUNT ROUTINE 
10 ; RETURN [RETURN WITH R5 CONTAINING THE DESIRED WORD COUNT 
12 “RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
13 ?R4 = POINTER TO SECTOR STORAGE BEFORE CALLING THE ROUTINE 
1 *R5 = DESIRED WORD COUNT BEFORE CALLING THE ROUTINE 
16 020330 060004 CHKWC: ADD RO,R4 sPOINT TO SECTOR STORAGE POINT IN DPB 
17 020332 105760 000140 TSTB MINSEC(RO) TALLOW SPIRAL RD/WR 
18 020336 001023 BNE 2$ *BR IF NO 
19 020340 126037 000136 001424 CMPB  - MAXSEC(RO) , SECLMT sALLOW SPIRAL RD/WRT ? 
20 020346 001017 BNE $ 3BR IF 
21 020350 105760 000134 TSTB  MINTRK(RO) TALLOW SPIRAL RD/WRT ? 
22 020354 001010 BNE 1$ “BR 
23 020356 126037 000132 001426 CMPB =- MAXTRK (RO), TRKLMT sALLOW SPIRAL RD/WRT ? 
24 020364 001004 BNE 1$ :BR IF NO 
25 [WHEN SPIRAL RD/WRT IS ALLOWED, THEN CHECK 
26 :TO MAKE SURE YOU DO NOT SPIRAL OVER MAXIMUM 
27 STRACK ON MAXIMUM CYLINDER 
28 020366 026064 000126 000002 CMP MAXCYL (RO), 2(R4)" :ON MAXIMUM CYLINDER ? 
29 020374 001022 BNE 4$ F NO 
30 020376 126064 000132 000001 1S: CMPB 0 MAXTRK(RO),1(R4)° s0N MAXIMUM TRACK ? 
31 020404 001016 BNE 4$ :BR IF NO 
33 020406 111404 2$: MOVB —. (R4) :GET STARTING SECTOR ADDRESS 
34 020410 016046 000136 MOV A a =(SP)" :G IMUM SECTOR 
35 020414 160416 SUB R4, (SP) GET NUMBER SECTORS TO BE XFERD 
36 020416 005004 CLR OFT ARCR 
37 020420 062704 000400 3$: ADD #256. .R4 SADD 1 RF CTOR OF WORDS TO R4 
38 020424 005316 DEC (SP) ;DONE ALL SECTORS YET ? 
39 020426 002374 BGE 3$ F NO 
40 020430 005726 TST (SP)+ :RESTORE STACK 
41 020432 020504 CMP R5.R4 STOO MANY WORDS FOR TRACK ? 
42 020434 003420 BLE BR IF NO 
43 020436 010405 MOV R4,RS5 *YES, CHANGE WORD COUNT 
44 020440 000416 BR 5$ 
46 020442 013746 001430 4$: MOV FE1,-(SP) :GET FIRST FE CYLINDER (LAST CYL+1) 
47 020446 005316 DEC (SPS *LOOK AT LAST USER CYLINDER 
48 020450 026426 000002 CMP (R4) , (SP)+ ZARE WE ON LAST USER CYLINDER ? 
49 020454 001010 BNE NO 
50 920456 013746 001426 MOV TRKLMT,-(SP)  :GET LAST TRACK 
51 020462 005316 DEC (SP) SLOOK AT NEXT TO LAST TRACK 
2g 020464 005046 CLR =(SP) [PUSH STACK 
53 020466 116416 000001 MOVB 1(R4), (SP) *GET CURRENT TRACK 
Ea i Shee ASHE VE oan Pe SFIRMe 16'S" see tm 
56 020476 000207 5$: RTS PC 





n 8 
CZRNAAO RMBO PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 20 SEQ 0104 
MAIN PROGRAM 
} : ROUTINE TO GET THE PREVIOUSLY SELECTED PARAMETER VALUES 
4 3 V :DPB ADDRESS 
4 : JSR pc mite SGENERATE THE PARAMETERS 
5 3 SR PC.LODPAR *LOAD THE PARAMETERS JUST GENERATED 
g ; RETURN 
8 020500 010546 LODPAR: MOV R5,-(SP) 3SAVE RS, 
9 020502 105760 000026 TSTB  $PACK(RO) :"R' OR ‘WwW COMMAND FOR THE DRIVE ? 
10 020506 001106 BNE IF YES 
11 020510 116060 002140 000027 MOVB = $RMCS1 (RO) SPREVO(RO) 3SAVE CURRENT PARAMETERS 
12 020516 142760 177701 000027 BICB #*C76,$PREVO(RO P GO,AND IE BITS 
13 020524 132760 000006 000114 B1TB #6 SNCODE (RO) :SEE IF NEXT OPERATION IS READ OR WRITE 
14 020532 001007 BNE 25R IF EITHER 
15 020534 016060 000012 000034 MOV SCYL(RO),S$PREVA+2(RO) SAVE STARTING CYLINDER 
16 020942 916060 000010 000032 mov SSEC(RO) *SPREVA(RO) SSAVE STARTING SECTOR AND TRACK 
18 020552 004737 023254 1$: JSR PC ,READDR GET THE DECREMENTED SECTOR AND TRACK ADDRESSES 
19 020556 012660 000034 MOV (SP)+, $PREVA+2(RO) :CYLINDER ANDRESS 
20 020562 112660 000033 MOVB (SP) +, $PREVA+1 (RO) ; TRACK EDDA 
21 020566 112660 000032 MOVB (SP) +, $PREVA(RO) SSECTOR ADDRESS 
23 020572 032777 000100 160354 2S: BIT #SW06,@SWR sSWITCH 6 SET ? 
020600 001051 BNE BR I 
25 020602 116060 000114 000024 MOVB  $NCODE(RO),S$CODE(RO) . LOGICAL CODE FOR OPERATION 
26 020610 116005 000114 MOVB  $NCODE(RO).R5 ;LOAD RS FOR USE AS TABLE INDEX 
27 020614 116560 002076 000002 MOVB = COMTBL(R5), -st Comb (RO) COMMAND CODE 
020622 122760 000151 000002 CMPB = #WCKD SCOMN 71S NEW COMMAND A WRITE CHECK DATA ? 
29 020630 001012 BNE 3$ aR IF NO 
30 020632 122760 000060 000027 CMPB =- #60, SPREVO(RO) 3WAS PREVIOUS COMMAND A WRITE DATA ? 
31 020640 001431 BEQ F YES 
32 020642 112760 000171 000002 MOVB - BRDDAT, SCOMND (ROS “CHANGE WRITE CHECK TO READ DATA COMMAND 
33 020650 112760 000004 000024 MOVB #4,$CODE(RO) | ;CODE NUMBER CHANGED TO READ DAT 
35 020656 116060 000115 000030 3$: MOVB = $NPATC(RO) SPATIC(RO) :PATTERN CODE 
20664 016060 000116 000010 MOV SNSEC(RO) ,$S EC STRACK AND SECTOR ADDRESSES 
37 920672 01 000120 000012 MOV SNCYL (RO) RO SCYLINDER ADDRE 
38 020 012760 000400 000022 MOV #256 SSECERD) s zINITIAL” VALUE OF SECTOR SIZE 
9 ana 132760 000001 000024 B1TB 1,$ Sea5E tno) SHEADER OPERATION ? 
40 020714 001403 BEQ 4 NOT 
41 020716 (62760 2 000022 ADD #2.$SSEC(RO) “ADD HEADER SIZE 
4¢ 020724 016060 000020 000004 4$: MOV Seno SWCNT (RO) :GET WORD COUNT AND 
020 4 016060 000020 000110 MOV (RO) ; SHLDWC (RO) HOLD WORD COUNT FOR "RELBUF* ROUTINE 
44 02074 0034 000004 NEG SucN (RO) :MAKE IT’ 2°S COMPLEMENT 
45 020744 01260 MOV (Spy e UR *RESTORE RS 
46 020746 000207 RTS pe RET 
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=] 
Mm 
= 
=] 
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BR RUNUASSSSEGLASSS SELES. 
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~~ ww I —IO) 
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SENSNSSENS 
WM= =f S——- 
Nonrcnonoo 
NWWOAN Ww ~ ion 


000002 


000146 


001436 
000112 


001436 
023254 
177777 


000003 
177777 


000002 


000004 


001504 


177777 00) 388 
000002 00000 


+ ROUTINE TO COMPRESS A LIST 
3 CALL: 


1$: 


sROUTINE TO DETERMINE OF ERROR IS AT A LOCATION ON THE DISK DEFINED 
:IN ty BAD TRACK/SECTOR TABLE FOR THE DRIVE. 


, PC,SPOTCK 


SPOTCK: 
MO 
1$: 


2$: 


3$: 
4$: 
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#ADDRS,R1 
PC, CMPRES 
2(R1),(R1) 
1$ 


(R1)+ 
shame 


-(SP) 
Rpsec. R1 
RO,R1 

DEC2 
$SSSENB(RO) 
2s 
DEC2 
PC ,READDR 

(Ri), (SP)+ 
(SP)+ 
(SP)+,3(R1) 
#-1,2(R1) 
(SP)+ 
(SP)+,2(R1) 
8$ 


#-1,BADSEC 
#2,2(SP) 


(SP)+,R1 
PC 


COMPRESS LIST STARTING AT THIS ADDRESS 


s COMPRESS THE foe IN R1 
WHEN ZERO FOUND 

TINCREMENT R R1 

ZCONTINUE COMPRESSING TABLE 

ETURN 


ERROR AT AN ADDRESS IN TABLE 
3NO TABLE ENTRY FOR ERROR ADDRESS OR 
3PARAMETER ‘MESSAGE’ IS 0 


33PUSH_R1_ON STACK 
; INCREMENT FOR BAD SECTOR T 

D THE BLOCK'S STARTING ADDRESS 
ASSUME DECREMENT SECTOR 

;D1D SS OCCUR DURING SKIP SECTORING ? 


iBR 

;DECREMENT SECTOR TWICE 

sDECREMENT THE SECTOR/TRACK ADDRESS 
THE SAME CYLINDER ? 
sBRANCH IF NOT 
ZALL BAD TRACKS ? 
ZADJUST STACK_AND 
360 CHECK SECTORS 

;COMPARE THE TRACK ADDRESS 

IS_NOT EQUAL 

ah BAD SECTORS ? 
ZADJUST, STACK AND 


s¢ 
{COMPARE THE SECTOR ADDRESS 
T EQUAL 


2CL F THE STACK 
i INCREMENT THE STACK POINTER 
360 THE NEXT LOCATION IN, THE TABLE 
EMPTY ENTRY OR TERMINATOR ? 
T SECTOR 
SPRINT THE ERROR ANYWAY ? 


4 
THE INDICATOR FOR THE IDENTIFICATION LINE 
INCREMENT THE RETURN 


33POP_STACK INTO R1 
;RETURN 





SEQ 0105 


Ooo 
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MAIN PROGRAM 


; 
4 
S 
$ 
8 021134 
9 Oettz3 
10 021144 
i ste 
18 031166 
15 betige 
16 ogi tz¢ 
17 021176 
18 031008 
20 021212 
21 
22 
23 
24 
25 
26 
ev 
29 
31 
32 
33 
35 021214 
021214 
021216 
021220 
36 021222 
37 Octses 
38 021232 
39 021234 
40 021242 
a} 99134 
i Be 
44 021 
45 0. 1¢88 
i 
48 021 8 
49 021 
50 3131 
3 ie 
53 0213 
$4 031394 
56 é 1336 


l=) 
3a 


sessca 
RRIGF 
NEN SOL SUNT 


SREPRs 
OWS 


=-—ooo 
ert 
2s 
oOfu yw 
Le 
NEQAAO 


F=L38 
VAVARLO 
Sue 


SE 


==888 
NeNNN 
WE 
NON 


rise 


oon 
i= On 
Neu 
SSS 
WV 


Sso 
Ses 


002000 


001203 
021354 


07327, 
4 


179701 


160012 


157776 


021354 


021354 





SEQ 0106 


© RRRRRARRRARAAEAEAEEREEEERERERERRERRARREREERERRERRRERERERREREREEEEE 


*SBTTL ERROR MESSAGE GENERATION ROUTINES 


FE RRARARRAAAARRERARARERERAEREREREEARERRERERRERERERERRRERRRERERRER 


3;PRINT LINE 1 OF ERROR MESSAGE: 
:"4H:MM:SS 


LINE1: BIT #SW10,aSWR sSWITCH 10 SET ? 
BEQ $ ‘BR IF NOT 
TYPE SBELL *RING THE BELL 
1$: BIT #Swi3,aSwR * INHIBIT TYPEOUT ? 
EQ 23 [BR IF NOT 
DISPLY ,$CRLF CRLF 
DISPLY ;$CRLF CRLF 
BR $$ TEXIT 
2$: DISPLY {S$CRLF CRLF 
DISPLY ;$CRLF CRLF 
SR PC, STIME :TYPE THE TIME 
DISPLY ,BLNKS1 “TYP 


sTYPE 1 BLANK 
3$: RTS PC sRETURN & TYPE DESCRIPTION 


sPRINT LINE 2 OF ERROR MESSAGE 
;"PRSNT COMMAND =_XXXX 


3 "PRSNT D =X PREV COMMAND = XXXX' 

3'* ERROR AT BAD TRACK/SECTOR’ 

3"DRV_RMCS1 _RMCS2 S1  RMER1 RMMR2 RMER2 RMEC1  RMEC2° 
3 *RMWC RMDA $s RMMR1 = RMDT" 


3 A 

3; "RMSN RMOF yan STATUS* 
3"RMBAE __RMCS3° (RH70 ONLY) 

"BUS ADDRESS OR WORD COUNT NOT CONSISTENT 


3°RMBA_= XXXXXX_ —-RMWC = XXXXXX 
: "BUFFER ADR = XXXXXX wWRD CNT = XXXX ACTUAL NMBR WRDS XFRD = XXX" 


LINE2: 
v R3,-(SP) ::PUSH R3 ON STACK 
MOV R4,-(SP) + PUSH R4 ON STACK 
V R5,-(SP) + PUSH RS ON STACK 
DISPLY ,S$CRLF CRLF 
CLR is SCLEAR MESSAGE ADDRESS STORAGE 
CLR RG SWORKING REGISTER 
MOV ALINZC,4$ SADDRESS OF 'PRSNT COMMAND = ° MSG 
MO SRMCS1(RO).R4  :GET THE OPC 
BIC #°C76,R4 SSAVE ONLY SIGNIFICANT BITS 
JSR PC,1$ STYPE THE FIRST MNEMONIC 
TST 5§ [SEE IF MNEMONIC ENTRY FOUND 
BEQ LINEA : 
MOV ALINZP.4$ SADDRESS OF "PREVS COMMAND = ° MSG 
MOVB SPREVO(RO) .RG SPREVIOUS OPERATION CODE 
BIC 9C76,R4 *SAVE ONLY SIGNIFICANT BITS 
JSR .1$ STYPE THE PREVIOUS MNEMONIC 
BR LINE2A 3 NUE 
1$: CLR [CLEAR THE TABLE INDEX 
23: CMPB TBL(RS),R4 LOOK FOR THE OPCOD 
BEQ *BR WHEN OPCODE COUNT EQUALS OPCODE 
TSTB QPTBL (RS) *LOOK FOR END OF TABLE 
BMI § 37BR IF EN 
INC R5 S INCREMENT THE POINTER 
AR 2$ SCONTINUE = NOT END OF TABLE 


mo 
zaes 


RNAAO 
ROR MESSAGE 
70 ] 2 
+ 
60 021 
61 021 § 
6¢ 02135 
63 021354 
64 02135 
65 021 
66 021362 
68 021 
69 51390 
70 021372 
71 021376 
72 021402 
73 abe 
74 02141 
75 OS te38 
76 02142 
77 Og legs 
78 021432 
79 021436 
80 021442 
81 021450 
Hd 021452 
83 021456 
84 021462 
85 021466 
86 021472 
87 o¢ 1378 
89 021502 
90 021506 
91 Osiaie 
92 0 1316 
93 0215 
94 021524 
95 0215 
97 021534 
98 051334 
99 021544 
100 021550 
18 Site 
1S Sis 
105 0 1390 
106 021574 
107 1600 
108 021604 
109 021610 
0 1019 
02161 
021614 
110 02161 
111 021 
112 021 


104414 


oO-002 222 
S2s8=seeeess 8 
BENNER EN 1 wi 
wi © Www 
~ wO ~NU 


ANNNNENNSONNS 


oO 
WG 
~ 
WES NNUAL ES 


WO—WNWOWE22 22> 


REPRESS 


segeeres 
US=SHIRUS= 
PAAAANUIEN 


Sas 
i 
eN 
NO 
DABVONA 


[=] 
st 
oa 
ze 


ae SEE 
SS Wiss 


S<5 
SF3S 
anw 


021360 


072746 
073226 


021360 


157504 


000016 


3$: 


4$: 
5$: 


LINE2A: 


D 
LINE2B: 
DI 


1$: 


2$: 


3$: 
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GENERATION ROUTINES 


RS :SHIFT INDEX 

R5 SSHIFT THE INDEX 

R5 SSHIFT THE INDEX 

#MNTBL 5S SADDRESS OF ASCII TEXT TABLE 

R5,5$ ADD THE INDEX 

0 TADDRESS OF ‘PRESENT’ OR ‘PREVIOUS’ MESSAGE 
[TYPE THE OPERATION MNEMONIC 

0 TADDRESS OF MESSAGE 

PC SRETURN TO MAIN ROUTINE 

BADSEC :PRINT THE BAD SECTOR LINE ? 

LINE2B ‘BR IF NOT 

*LIN2S TERROR ADDRESS DEFINED AS BAD AREA 

*$CRLF *CR=LF 

*DH14 SSTANDARD RM REGISTER HEADER 

BLNKS1 :TYPE 1 

DRVNO,-(SP) *PUT THE DRIVE NUMBER ON THE STACK 

PC,LINDEC ‘TYPE DRIVE NUMBER 

BLNKS2 3 

#DT14,R5 SREGISTER INDEXES 

> SPRINT THE REGISTERS 

#SWO5,@SWR [PRINT THE OPTIONAL REGISTERS ? 

1$ ‘BR IF NOT 

»DH15 

#DT15,R5 sSECOND DATA LINE 

3 [PRINT THEM 

#DT16,R5 :THIRD DATA LINE 


$CPUOP,-(SP)  ; 
#°C174000, (SP) ;: 
| macht $ 
DH17 . 
#DTI7 RS : 
#B1T6,$TATUS(RO)- 
SWRDL(RO),-(SP) ; 
SRMWC (RO). (SP 


sPRINT THE REGISTERS 


CHECK THE CPU (RH) TYPE 
BITS 


LEAVE THE _CPU 
RH70 


SEE IF 
BR IF 


OPTIONAL 


FOURTH DATA LINE 


T 
PRINT THE REGISTERS 
;DATA ERROR ? 


IF 
TRANSFER WRD CNT 


0)°(SP) ADD REMAINI 


(SP) 
$BUF (RO) , (SP) 


ss cantmcetaess 2 CORREC 


NG WOR 
CONVERT TO AN BY 
sBUFFER STARTING AD 
; T BUFFER ADDRESS ? 


sBR IF Y 
3 Bus Meoness AND WORD COUNT ARE NOT CONSISTENT® 


D COUNT 
TE INCREMENT 
DRES 


ERROR MESSAGE 


OF ERROR MESSAGE 


K_INTO R3 
TO_ ERROR PROCESSING ROUTINE 


INDEX ON THE STACK 


*SCRLF CR- 

PC LINE3D :PRINT LINE 3D OF 

PC.LINE4 SPRINT LINE 4 

(SP)+,R5 ::POP STACK INTO RS 
(SP)+,R4 *:POP STACK INTO R4 

pape oRS ria STAC 

(R5)+,=(SP) *PUT THE REGISTER 

RO, (SP) TADD DRIVE'S TABLE ADDRESS 


SEQ 0107 


Om 


Sn 
3 
: 

: 
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2320, 
075233 
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073367 


073405 


022260 
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RO V04.00 14-JAN-82 15:16:58 PAGE 22-2 
TINES 


MOV a(SP) ,-(SP) : VALUE 
JSR PC,LINOCT STYPE IT 
TST (SP) + SCORRECT THE STACK POINTER 
DISPLY <BLNKS2 : TYPE 2 BLANKS 
TST (R5) SAT END OF LINE ? 
BNE $ :BR IF NOT 
4$: DISPLY |$CRLF CRLF 
RTS PC *RETURN 


sPRINT LINE 3 OF ERROR MESSAGE 
;"ERROR AT CCC TT SS_ PREV ADR = CCC TT SS° 


LINE3: DISPLY ,LINM3 sLINE 3 ENTRANCE 
BR LIN3.1 3FINISH PRINTOUT 


3PRINT LINE 3A OF ERROR MESSAGE 
z"START CYL = CCC END CYL = CCC’ 


LINE3A: DISPLY ,LINN3 3LINE 3A_ENTRANCE 
BR LIN3.1 FINISH ERROR LINE 


3PRINT LINE 38 OF ERROR MESSAGE 
;"START CYL = CCC END CYL = CCC ACTUAL CYL = CCC’ 


LINE38: JSR PC ,LIN3.3 3LINE 38 ENTRANCE 
+ aad eal 


sPRINT LINE 3C OF ERROR MESSAGE 


**START CYL = CCC END CYL = CCC ACTUAL CYL = CCC TRK = TT" 
LINE3C: JSR PC.LIN3.3 ;LINE 3C ENTRANCE 
JMP LINS.4 [FINISH MESSAGE 
:PRINT LINE 3D OF ERROR MESSAGE 
S"RMBA = XXXXXX RMWC = XXXXXX" 
LINE3D: BIT #SWOS,@SWR sSWITCH 5 SET ? 
BEQ 1$ *BR IF IT 1S 
DISPLY ,LINB3 ["RMBA = ° 
MOV $RMBA(RO),-(SP) :BUFFER ADDR REG CONTENTS 
JSR PC, LINOCT [CONVERT TO OCTAL AND TYPE IT 
DISPLY ,LINW3 :* RMWC = ° 
MOV $RMWC(RO),<(SP) :WORD COUNT REGISTER CONTENTS 
JSR PC,LINOCT SCONVERT TO OCTAL AND TYPE IT 
DISPLY ,$CRLF 
1$: RTS PC 


3PRINT LINE 3E OF ERROR MESSAGE 
s"START CYL = CCC START TRK = TT 


LINE3E: DISPLY 
MOV 


START SEC = SS’ 


LINS3 s"START CYL = ° 
$CYL(RO).-(SP) MOVE CYL TO STACK 
PC ,LINDEC 


JSR sTYFE y IN DECIMAL 
DISPLY ,BLNK sTYPE 2 BLANKS 
DISPLY ,LINST z°START TRK = ° 

CLR =(SP) sCLEAR STACK 


: 


ao 
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z 
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am 
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RALRALLSS 
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3 
Ret 
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V04.00 14-JAN-82 15:16:58 PAGE 22-3 
TINES 


MOVB STRK(RO),(SP)  ;TRACK TO STACK 
PC LINDE 


SR é + TYPE MY IN DECIMAL 
DISPLY ,BLNKS [TYPE 2 BLANKS 
DISPLY  {LINSS :"START SEC = ° 
CLR =(SP) SCLEAR STACK 

VB  $SEC(RO),(SP) SECTOR ADDR TO STACK 
JSR PC, LINDEC STYPE IT IN DECIMAL 
DISPLY ,$CRLF 
RTS PC 


zPRINT LINE 3F OF ERROR MESSAGE 
z"RMDA = XXXXXX =-RMCA = XXXXXX° 


LINE3F: BIT #SW5S,aSWR sSWITCH 5 SET ? 
BEQ 1$ ‘BR IF NOT 
DISPLY ,LINDA3 :"RMDA = 
MOV $RMDA(RO),-(SP) PUT SECTOR/TRACK ADDRESS ON THE STACK 
JSR PC,LINOCT ; T 
DISPLY ,BLNKS [TYPE 2 BLANKS 
DISPLY -LINC :* RMDC = ° 
V $RMDC(RO),-(SP) :PUT DESIRED CYLINDER ADDRESS ON THE STACK 
JSR PC,LINOCT STYPE IT 
DISPLY ,$CRLF 
1$: RTS PC 
s"CCC TT SS PREV ADR = CCC TT Ss’ 
LIN3.1: JSR PC,READDR sDECREMENT TRACK AND SECTOR ADDRESS 
R PC .LINDEC *TYPE IT IN DECIMAL 
DISPLY [PRINT ' T° 
JSR PC,LINDEC :TYPE TRACK IN DECIMAL 
DISPLY ,$ [PRINT * S° 
JSR PC LINDEC [TYPE SECTOR ADDRESS 
DISPLY ,LINP “PRINT ° R° 
MOV $PREVA+2(RO) ,-(SP) :PREVIOUS CYLINDER 
JSR PC,LINDEC sTYPE IT’ IN DECIMAL 
DISPLY , :PRINT ' T° 
CLR =(SP) “MAKE ROOM ON THE STACK 
SPREVA+1(RO), (SP sPREVIOUS TRACK ADDRESS 
JSR PC,LINDEC :TYPE IT IN DECIMAL 
DISPLY , :PRINT * S° 
CLR =(SP) SMAKE ROOM ON THE STACK 
SPREVA(RO), (SP) :PREVIOUS SECTOR DDRESS 
JSR PC .LINDEC [TYPE IT IN DECIMAL 
DISPLY ,$CRLF 
RTS PC 
:"START CYL = CCC END CYL = CCC’ 
LIN3.3: DISPLY ,LINS3 -LINE °38 & 3C° ENTRANCE 
MOV $PREVA+2(RO) ,-(SP) sPREVIOUS CYLINDER 
JSR PC, LINDEC sTYPE IT" IN DECIMAL 
DISPLY ,LINEN3 SPRINT “END CYL 
MOV $RMDC(RO),-(SP) ;PRESENT CYLINDER 
JSR PC LINDEC [TYPE IT IN DECIMAL 
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CZRNAAO 
ERROR MESSAGE GENERATION ROUTINE 





3 
5 8 60 104414 073475 
Rees Sant us 
022274 rg bs 
9 0 104414 075514 
40 ! 5046 
4] 306 11 18 002147 
2g 022312 004737 0235234 
4 bs 316 104414 001203 
34s 022322 000207 
46 
247 
248 
249 oes 4 032760 000100 
50 022332 00142 
51 022334 104414 073614 
Sis fay Bias 
53 022344 737 02320 
254 022350 104414 07363 
5 Saks un StS 
$3 022364 104414 O736%6 
sa Seat Uae ele 
oe 
se Sains uaus P12 
ES 
8 
268 06 414 104414 073700 
69 022420 162760 2 
eats Ss Sy 
BBs BE soon 
Bs waiss sizes SO 
78 ig lee? 2 
79 0 & 006737 144 
3 022474 3 602 
Be 500 104414 1 
ie nes Be 
e 0 318 16046 14 
88 0225 be 2 
B He BES oon 
| 3 12616 
5 540 104414 073736 





000016 


002144 


doszi2 


002144 





s"ACTUAL CYL = CCC TRK = TT’ 
LIN3.4: DISPLY ,LINA3 sPRINT "ACTUAL' 
MOV CYLNDR. = (SP) SACTUAL CYLINDER 
BIC #B1T12, (SP) :CLEAR THE FORMAT BIT 
JSR PC, LINDEC ‘TYPE IT IN DECIMAL 
DISPLY HINTS INT TRACK 
CLR SCLEAR STACK WORD 
MOVB SRADAYI (ROD, (SP)° :PUT TRACK ON STACK 
JSR PC,LINDEC :TYPE IT” IN DECIMAL 
DISPLY gacRLr 


sPRINT LINE 4 OF ERROR MESSAGE 


3 "BUFFER ADR = XXXXXX 
LINE4: 


1$: 


WRD CNT = XXXX 
BIT #81706, STATUS (RO) DATA ERROR ? 
BEQ $ NO 
DISPLY ,LINM4 "PRINT BUFFER’ 
MOV $5UF(RO),-(SP) BUFFER ADDR ON S 

¢ LINO : CONVERT TO OCTAL " PRINT 
shade (RO) .<(SP) SWORD LENGTH SIZE(WORD COUNT) 
JSR NDEC STYPE IT IN DECIMAL 
DISPLY ,LINX4 + “ACTUAL WRDS XFRD = 
MOV $RMBA(RO),<(SP) [VALUE IN BUFFER ADDR REGISTER 
SUB SBUF (RO) . (SP) SUBTRACT STARTING ADD RESS 


ACTUAL NMBR WRDS XFRD = XXX° 


ASR (SP : CONVERT INTO A 
JSR PC ,LINDEC :TY, YPE IT IN DECIMAL 
DISPLY ,$CRLF :CR- 

RTS PC RE TURN 


sPRINT LINE 5 OF ERROR MESSAGE 


:"EXPCTD DATA = 
LINES: 


1$: 


AXAXXX 
DISPLY py ae 
SUB 


es 


CMP #30000. (SP 


RECEVD DATA = XXXXXX WORD POS = XXX* 


sPRINT_“EXPCTD DATA’ 
(RO) BACK THE ADDRESS UP 
(SP) sCHECK THE CPU (RH) TYPE 
600, (SP) LEAVE ie PU BITS 
+ sSEE I 
(RO) 


BNE } fw 
SUB ‘BACKUP THE BUFFER POINTER 
BIT me Save THT, SAMCSS.ROS. sSEE WHICH WORD HALF DIDN'T COMPARE 
BEQ 1 Q, EVEN HALF DIDN'T COMPARE 
SUB SRMBA(RO) —_SBACKUP THE BUFFER POINTER. AGAIN 
MOV (RO), “(SPD DATA = AT THE BUFFER LOCATION 
JSR PC,LINOCT 
DISPLY ,LINBS PRINT tins DATA’ 
v $RMpB(RO),-(SP) ; SRECEVD DATA FROM BUFFER 
JSR PC,LINO TYPE IT 
V SRMWC(RO),-(SP) :WORD LENGTH ON STACK 
SURDL CR )°(SP) MAKE INTO A POSITIVE NUMBER 
CLR -(SP [UPPER DIVIDEND TO 2 
SSSEC(RO),-(SP) :SECTOR SIZE ON THE STACK 
JSR PC,$DiV ;DIVIDE WORDS XFERED BY SECTOR SIZE 
MOV (SP) +, (SP) ZMOVE REMAINDER UP THE STACK 
DISPLY CsrNes s 


sPRINT ‘WORD PO 


SEQ 0110 
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ROR MESSAGE GENERATION ROUTINES Gs 
9 544 737 023234 JSR PC,LINDEC sTYPE THE POSITION 
5 022550 104414 001203 DISPLY ,$CRLF 
022554 000207 RTS PC 
sPRINT LINE 5A OF THE ERROR MESSAGE 
$35 "HEADER FROM ERROR SECTOR XXXXXX XXXXXX MXXMMK  AANKKK® 
1 022556 LINESA: 
¢ 9 556 104414 073753 $: DISPLY ,LINSS s"HEADER CONTENTS OF ERROR SECTOR’ 
0 015746 101174 MOV CYLNDR,-(SP) § :HEADER POSITION 
0225 90473 0252 2 JSR PC,LINOCT : IT 
9 572 104414 075 DISPLY ,BLNKS2 STYPE 2 BLANKS 
576 015746 1011 MOV CYLNDR+2,-(SP) :HEADER POSITION +2 
60 00475 0 ; PC,LINOCT STYPE IT 
0 606 104414 0 DISPLY , STYPE 2 BLANKS 
308 022612 104414 075 36 DISPLY [LINX SAPPENDING INFO 1/23/77 
0 616 104414 00120 3$: DISPLY -S$CRLF 
10 022622 000207 RTS PC 
12 :PRINT LINE 5B OF ERROR MESSAGE 
i 3 "RMEC1 = XXXXXX RMEC2 = XXXXXX* 
316 022624 104414 074006 LINESB: DISPLY ,LINEPS :"RMECT = ° 
316 0226 016046 002204 MOV $RMEC1(RO) .-(SP) 3PUT REGISTER CONTENTS ON THE STACK 
17 0 004737 0 98 SR PC,LINOCT TYPE M 
318 022640 104414 07523 DISPLY , :TYPE 2 BLANKS 
19 0 104414 074016 DISPLY :" RMEC2 = ° 
022650 016046 002206 $RMEC2(RO) ,=(SP) sPUT REGISTER CONTENTS ON THE STACK 
321 022654 00473 92320 JSR PC, :TYPE IT 
322 022660 104414 00120 DISPLY 
: 022664 000207 RTS PC : RETURN 
36 ;PRINT LINE 6 OF ERROR MESSAGE 
3 "SECTOR IS ECC CORRECTABLE' 
8B 022666 104414 074030 LINE6: DISPLY ,LINB6 sECC CORRECTABLE 
329 022672 104414 001203 DISPLY ‘$CRLF 
330 022676 000207 RTS PC 
39 
sPRINT LINE 6A OF THE ERROR MESSAGE 
"SECTOR READ CORRECTLY’ 
074063 LINEGA: DISPLY ,LINC :PRINT "SECTOR READ CORRECTLY ON N RETRIES' 
CIN6. *TYPE THE REST OF THE LINE 
:PRINT LINE 6C OF THE ERROR MESSAGE 
"CORRECTED ON NTH RETRY’ 
074112 LINE6C: DISPLY -LINGG s*CORRECTED ON N RETRIES' 
BR LING. STYPE THE REST OF THE LI 
sPRINT LINE 6D OF THE ERROR MESSAGE 
S"UNCORRECTABLE AFTER N RETRIES' 
074142 LINE6D: DISPLY ,LINUO6 s"UNCORRECTABLE AFTER N RETRIES' 
BR LIN6.2 FINISH 
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ERROR MESSAGE GENERATION ROUTINES 
a ;RETRY COUNT TYPEOUT 
79 022722 005046 LIN6.2: CLR -(SP) ZCLEAR STACK 
022704 11 1 1331 MOVB  RETRY+1,(SP) RETRY COUNT 
1 022730 00473 3 PC ,LINDEC [TYPE IT IN DECIMAL 
022734 104414 0 4130 DISPLY .LINR6 : "RETRY 
022740 104414 00120 DISPLY -$CRLF 
4 022744 000207 RTS PC 
386 sPRINT LINE 7 OF THE ERROR MESSAGE 
387 **TOTAL ERRORS:XXX | WOFL:X WRDS WRITN:XXXXXXX  ROFL:0 WRDS READ:XXXXXXX* 
396 022746 104414 074254 LINE7: DISPLY ,LIN7T :TOTAL ERRORS 
397 022752 016046 MOV $TOTAL (RO) ,-(SP) : 
98 022756 00473 4 334 JSR PC, LINDEC :TYPE IT IN DECIMAL 
02 762 104414 074272 DISPLY ,LIN7OX [PRINT *WIOFL® 
46) 0 3766 016046 56 MOV $UTOFL (RO) .-(SP) 3:PUSH $WTOFL(RO) ON STACK 
401 022772 00473 Go8e3 JSR PC LINDEC :TYPE IT’ IN DECIMAL 
40¢ 022776 104414 074302 DISPLY ,LIN7X [PRINT "WRDS WRITN' 
403 023002 012746 000060 MOV #SuRITN.=(SP) TADDRESS OF LOW WORD ON STACK 
04 023006 16 ADD RO, (SP) 
405 023010 004737 037222 JSR PC. $DB2D : CONVERT 
406 023014 004737 032 JSR PC. $SUPRL PRINT 
407 023020 104414 074317 DISPLY ,LINZOR SPRINT "ROFL* 
023024 016046 MOV SRDOFL (RO) ,-(SP) + PUSH $RDOFL(RO) ON STACK 
409 023030 004737 0e5¢ JSR PC LINDEC :TYPE IT’ IN DECIMAL 
410 023034 104414 074327 DISPLY LIN R :"WRD ' 
411 023040 012746 000066 MOV WSREAD,-(SP) LOW WORD ADDRESS 
ig 023044 1 ADD RO, (SPS 
41 023046 00473 037222 JSR PC. $DB2D : CONVERT 
414 023052 0047 7 032 JSR PC. $SUPRL SPRINT IT 
415 023056 104414 001203 DISPLY CRLF 
416 02 032777 100000 156064 BIT #SW15,aSwR [SEE IF ‘HALT ON ERROR’ = SWITCH 15 
41 $30 isn 001401 BEQ 1$ :BR IF NOT 
418 023072 000000 HALT [SWITCH 15 HALT 
419 023074 000207 1$: RTS PC 
421 :PRINT LINE 7A OF ERROR MESSAGE 
4 Q "TOTAL SEEKS=XXXXX TOTAL MISPOS ERR = XXX TOTAL SKI= XXX" 
431 023076 104414 074214 LINE7A: DISPLY ,LIN7P :"TOTAL SEEKS = ° 
4 023102 012746 000052 MOV SIT,<(SP)  ;TOTAL SEEKS 
433 0 3106 1 RO, (SP) [DEVICE TABLE ADDRESS 
434 02311 7 37222 JSR PC. $DB2D *CONVERT THE SEEK COUNT 
435 023114 ? PC. SSUPRL PRINT 
436 023120 104414 074167 DISPLY ,LIN +" TOTAL MISPOS ERR = ° 
437 023124 01 102 V $m1SPO(RO) ,-(SP) ZTOTAL ERRORS 
438 0231 004737 02 g JSR PC, LINDEC sTYPE IT IN DECIMAL 
439 023134 104414 074 DISPLY ,LIN7S +" TOTAL SKI ERR = ° 
440 023140 916046 01 MOV $Sk1(RO).-(SP) CONVERT & PRINT IT 
441 023144 3 38 JSR PC ,LINDEC STYPE IT IN DECIMAL 
te 023150 Locate 1203 DISPLY StRLF CRLF 
44 0 3154 2777 1 155772 BIT #Sw15,@SwR [SEE IF HALT ON ERROR = SWITCH 15 SET 
228 O5316% | 9h0000 ee ee tCH 1s HALT 
446 0 3186 00020 1$: RTS PC 
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ERROR MESSAGE GENERATION ROUTINE 


461 033 


480 50 
481 023252 


oo 

ror 

io 
WMOor 


2322 
00000 


00000. 
033230 
032364 


023226 


SEQ 0113 
sPRINT LINE 8 OF THE ERROR MESSAGE 
;"DIFFERENT ERROR DURING RETRY* 


LINES: DISPLY ,LIN@M 
Sk p 


Ee LINE2 sPRINT LINE 2 OF ERROR MESSAGE 


sOCTAL TYPEOUT ROUTINE 
; CALL: 


; MOV NUM, -(SP) :PUT THE NUMBER ON THE STACK 

: JSR PC,LINOCT 

: RETURN 

LINOCT: MOV 2(SP) ,=(SP) PUT NUMBER IN PROPER LOCATION ON STACK 
JSR PC,$SB820 : CONVERT THE NUMBER T 
MOV (SP) 1$ :GET THE ADDRE F IME ASCII STRING 
ADD 18 ADDRESS THE LAST % ASCII DIGITS 
DISPLY :TYPE IT 

1$: . WORD SADDRESS 
MOV (SP)+, (SP) :CORRECT THE STACK 
RTS PC [RETURN 


sROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE IT WITH 
LEADING ZERO SUPRESSION 


; MOV NUM,=(SP) 3PUT THE NUMBER ON THE STACK 
: JSR PC, LINDEC 

- RETURN 

LINDEC: MOV 2(SP) ,=(SP) 3SET UP — FOR CONVERT 


JSR PC ,$SB2D 
JSR PC,$SUPRL 
alent 


: CONVERT IT TO DECIMAL 
;TYPE IT (WiTH LEADING ZEROS SUPRESSED) 
SRESTORE STACK POINTER 


K 
CZRNAAO RM8O PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 23 SEQ 0114 
GENERAL SUPPORT SUBROUTINES 


1 .SBTTL GENERAL SUPPORT SUBROUTINES 
$ :DECREMENT THE SECTOR=TRACK ADDRESS 
5 : MOV :DPB ADDRESS 
$ 3 JSR + see 
i 3 RETURN 
9 [ON RETURN THE STACK CONTAINS THE FOLLOWING: 
10 : 4(SP) = SECTOR ADDRESS 
11 : 2(SP) = TRACK ADDR ESS 
12 : (SP) = CYLINDER ADDRESS 
14 023254 004737 027462 READDR: JSR PC, GETLMT :GET ADDRESS LIMITS 
15 023260 162706 000006 SUB S ;DECREMENT THE STACK POINTER 
16 023264 016616 000006 MOV 6($P), (SP) *MOVE THE RETURN ADDR DOWN THE STACK 
17 023270 005066 000006 CLR 3CLEAR STACK FOR SECTOR 
18 023274 005066 000004 CLR STACK FOR TRACK 
19 023 116066 002146 000006 MO SRADA(RO? 6(SP) :SECTOR ON STACK 
20 923306 116066 00214 000004 MOVB = $RMDA+1(RO) ACPI * TRACK ADDRESS 
21 023314 016066 002174 000002 MOV SRMDC(RO),2(SP) ; YLINDER ADDRESS 
22 023322 005766 000006 1$: TST 6(SP) SCTE TOR 
23 023326 001403 BEQ ‘BRANCH N oF "$0 
24 023330 105366 000006 DECB = 6 (SP) :DECREMENT ONE SECTOR 
25 023334 000424 BR 3BRANCH TO EXIT 
26 023336 005766 000004 2s: TST 4 (SP) ALSO ON TRACK 0 ? 
27 023342 001406 BEQ SBRANCH IF SO 
38 023344 113766 001424 000006 MOVE  SECLMT,6(SP) LAST SECTOR 
33 023352 105366 000004 DECB 4 4 (SP) [DECREMENT ONE TRACK 
023356 000413 BR SEXIT 
31 023360 005760 000002 3$: TST 2(SP) tALSO ON CYLINDER 0 ? 
023364 001410 BEQ ‘BR IF YES 
33 023366 113766 001424 000006 MOVB = SECT, 6(SP) SLAST SECT 
34 023574 113766 001426 000004 MOVB  TRKLMT.4(SP) § :GET LAST TRACK 
35 023402 005366 000002 DEC 2(SP) ‘DECREMENT ONE CYLINDER COUNT 
36 023406 005337 001436 4$: DEC DEC2 SDECREMENT TWICE YET ? 
37 023412 002343 BGE 1$ ‘BR IF NO 
38 023414 005037 001436 CLR DEC2 SDECREMENT TRK/SEC ONLY ONCE NEXT TIME 
3 023420 000207 RTS PC RETURN 
41 :ROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 
43 023422 012737 177777 001312 CKCLK: MOV #-1,CLKFLG :CLEAR CLOCK AVAILABILITY FLAG 
44 023430 012737 177777 001310 MOV #1 gPCLOCk *CLEAR KW11-P CLOCK AVAILABILITY FLAG 
45 023436 01374 04 MOV ERR + PUSH ERRVEC ON STA 
023442 012737 023516 000004 MOV HKCLA -ERRVEC :SET UP VECTOR FOR CLOCK CHECK 
47 023450 005777 155622 TST a$s_kc [CHECK FOR -P 
48 023454 005037 001312 CLR ities *SET CLOCK K AVAILABILITY FLAG 
49 023460 005037 001310 CLR PCLOCK :SET kui i-p 7540 
50 023464 013701 001302 MOV SLPVEC,R1 kw11 ADDRESS 
51 023470 012721 02511 MOV #CLOCK (R1)+ SET uP ve 1p VECTOR 
32 023474 91 711 0 300 MOV R <PSW = PRI 6 
53 023500 012777 174575 155572 MOV #~1667.,a$LKCSB :LOAD COUNTER BUFFER WITH 16.67 
54 023506 012777 000131 155562 MOV #131 @SLKCSR *SET CLOCK = CNT UP, 10US, CONT INT 
33 023514 000441 BR CKCLK 
3 023516 012716 023524 CKCLK1: MOV #1$, (SP) :SETUP RETURN ADDRESS 
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GENERAL SUPPORT SUBROUTIN 


2 900002 an | 
4 01 983266 000004 1$: MOV #CKCLK2,ERRVEC he | os — TO CHECK FOR KW11-L 
2 005777 155546 TST oerit LOOK FOR Kk 

001312 

0 

0 

0 


58 0235 
59 0235 
60 0235 
61 0 236 00 037 1 CLR CLKFLG :SeT CLOCK tage 
be 023542 013701 001306 MOV $LLVEC,R1 kui t= TEC TOR ADDRESS 
6 033946 012721 025110 MOV #CLOCK CR (R1)+ T UP KWil=L VECTOR 
64 02355 gig7it 00300 MOV aii 
65 02 556 012777 000100 155520 MOV #100, 0° aSLKs SSET KW11-L INTERRUPT 
66 023564 000415 BR 
&R 0235 012716 023574 CKCLK2: MOV #1$, (SP) :SETUP RETURN ADDRESS 
69 023572 000002 RTI 
70 023574 1o449t 076064 1$: TYPE NEDCLK :'P OR L CLOCK MUST BE ON SYSTEM" 
71 023600 105737 001 TSTB ©: $AUTOB *RUNNING IN AUTO MODE ? 
ie 23604 00140 BEQ 2$ :BR IF NOT 
02 000137 031742 JMP $GET42 SABORT PROGRAM 
74 023612 000000 2$: HALT SPALT 
75 023614 000137 003532 JMP START :TRY AGAIN 
76 023620 012637 000004 CKCLK3: MOV (SP)+,ERRVEC § :RESTORE THE ERROR VECTOR 
77 023624 000207 RTS PC 


M 
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GENERAL SUPPORT SUBROUTINES 


1 
¢ {ROUTINE TO DISPLAY STATISTICS FOR ASSIGNED DRIVES 
4 ; JSR _—s- PC, STATPR 
? ; RETURN 
7 023626 STATPR: 
023626 010046 Mov —_ RO, = (SP) PUSH RO ON STACK 
023630 010446 MOV = R4 = (SP) PUSH _R4 ON STACK 
8 023632 005737 001542 TST ASNLST ANY DRIVES ASSIGNED ? 
9 023636 001423 BEQSti«éSS BR IF NOT 
21 023640 104401 001203 28: TYPE  ,$CRLF 3 CRLF 
22 023644 4737 023742 JSR PC, SHDTYP TYPE THE HEADING 
33 02365 05006 CLR RG SCLEAR THE DRIVE INDEX 
% 02%052 006304 3$: ASL RG [CHANGE TO INDEX WORDS 
25 025054 016400 002056 MOV  —«sBLKADR(R4),RO GET THE DRIVE'S BLOCK ADDRESS 
26 023660 006204 ASR RG SRESTORE R 
27 023662 136437 040300 001542 BITB  ATABIT(R4) ,ASNLST 1S THIS DRIVE ASSIGNED ? 
28 023670 001402 BE 3BR_IF_NOT 
29 023672 004737 023752 JSR —- PC, SDETAL TYPE THE PERFORMANCE SUMMARY 
30 023676 005204 4$: INC} — RG SINCREMENT THE INDEX 
31 023700 020427" 000010 (MP sRGB. FINISHED ? 
32 023704 001362 BNE 3$ 3BR IF 
33 023706 5$: 
023706 012604 MoV (SP)+,R4 :sPOP STACK INTO R4 
023710 012600 MOV (SP)+,RO 7:POP STACK INTO RO 
34 025712 000207 RTS = PC RETURN 
6 {ROUTINE TO TYPE THE PERFORMANCE SUMMARY (STATISTICS) FOR AN INDIVIDUAL 
38 3CALL 
39 ; MOV —- #DPB, RO ;DPB ADDRESS 
40 F JSR _—- PC, SUMARY 
4} ; RETURN 
43 023714 010046 SUMARY: MOV — RO, = (SP) SAVE RO 
44 023716 010446 MOV =—s-_ R4 = (SP) SAVE R4 
45 023720 004737 023742 JSR -- PC SHDTYP TYPE THE HEADING 
46 023724 005004 CLR ORG SCLEAR R4 FOR DRIVE NUMBER 
47 023726 111004 MOVB (RO) ,R4 :DRIVE_N 
8 023730 004737 023752 JSR —- PC, SDETAL STYPE THE STATISTICS 
49 023734 012604 MOV (SP)+,R4 ZRESTORE R4 
50 023736 012600 MOV (SP)+,RO RESTORE RO 
31 025740 000207 RTS = PC RETURN 
> {TYPE THE HEADER FOR THE DRIVE PERFORMANCE SUMMARY TYPEOUT 
55 ; JSR PC, SHDTYP 
26 ; RETURN 
58 023742 0046537 032574 SHDTYP: JSR —s RS, TYPRI4 TYPE SUMMARY HEADER 
59 023746 075626 SUMHD HEADER 
60 025750 000207 RTS =—s- PC RETURN 
62 ;TYPE THE PERFORMANCE SUMMARY 
63 3CALL: 
64 : MOV = #DRIVE RG ;DRIVE NUMBER 
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SEQ 0117 


65 : MOV #DPB,RO :DPB ADDRESS 

66 : RETURN 

68 023752 SDETAL: 

023752 104401 023760 TYPE 65$ z:TYPE ASCIZ STRING 

023756 000404 4$ 7:GET OVER THE ASCIZ 
-:65$: .ASCIZ <CRLF>/TIME / 

023770 64$: 

9 023770 004737 024764 JSR PC, STIME sTYPE ELAPSED TIME 

71 :TYPE LINE 2 OF SUMMARY 

es 023774 104401 001203 TYPE  ,$CRLF CR-LF 

73 024000 104401 075304 TYPE UNTMSG ‘TYPE "DRIVE® 

74 024004 010446 MOV R4,-(SP) [SAVE R4 FOR T 
024006 104403 TYPOS 3:60 TYPE--OCTAL ASCII 
024010 02 .BYTE 2 *:TYPE 2 DIGIT( 

024011 0 “BYTE ti SUPPRESS LEADING ZEROS 

75 024012 104401 075234 TYPE  ,BLNKS1 :TYPE 1 BLANK 

76 024016 104401 075300 TYPE §§ ,DASH [TYPE '=" 

77 024022 104401 075234 TYPE § ,BLNKS1 ‘TYPE 1 BLANK 

78 024026 104401 075520 TYPE  ,$RM80 STYPE DRIVE TYPE 

79 024032 104401 075276 TYPE .COMMA STYPE *,* 

024036 104401 024044 TYPE 67$ t:TYPE ASCIZ STRING 

024042 000404 BR *:GET OVER THE ASCIZ 
2:67$: .ASCIZ / PASS / 

024054 6$: 

81 024054 016046 000104 MOV SPASSC (RO) ,-(SP) :PUT THE PASS COUNT ON THE STACK 

82 024060 004737 033230 JSR PC,$SB2D :CONVERT IT 

83 024064 004537 032470 JSR R5S.REPLZ : TYPE IT 

84 024070 000003 .WORD 3 STYPE 3 DIGITS 

85 024072 104401 076141 TYPE PERIOD :TYPE *.° 

86 024076 104401 075234 TYPE  ,BLNKS1 ‘TYPE 1 BLANK 

87 024102 004737 032622 JSR PC, TYDRV [TYPE DRV SERIAL NUMBER 
024106 104401 075234 TYPE  ,BLNKS1 : 

89 024112 004737 032652 JSR PC, TYHDA ‘TYPE HDA SERIAL NUMBER 

1 :TYPE LINE 3 OF SUMMARY 

92 024116 104401 024124 TYPE 9$ z:TYPE ASCIZ STRING 
024122 000407 BR $ *:GET OVER THE ASCIZ 
sect i599" VASCIZ. <CRLF><LF>/wWT OFLOW / 

93 024142 016046 000056 MOV SWTOFL (RO) ,-(SP) >:SAVE SWIOFL(RO) FOR TYPEOUT 
024146 104405 TYPDS :;€9 TYPE==DECIMAL ASCII WITH SIGN 
024150 104401 o76141 TYPE  ,PERIOD :TYPE °.° 

95 024154 104401 024162 TYPE 71$ *;TYPE ASCIZ STRING 
024160 000407 BR 0$ +:GET OVER THE ASCIZ 

: i718: .ASCIZ / WRDS WRITN / 

96 934300 010046 MOV RO,-(SP) :GET ADDRESS OF DPB 

97 024202 06271 0060 ADD #SURITN,(SP) | :POINT TO LOW NUMBER OF WRDS WRITTEN 

38 OetstS Ooagsy | 055800 4Sh “$0826 sOONYRESS LEADING ZEROS AND TYPE 

100 $50516 104401 076141 TYPE PERIOD sTYPE °.° 

10 :TYPE LINE 4 OF S Y 

10 024238 104401 024230 TYPE es ::TYPE ASCIZ STRING 
024226 000406 BR 723 *:GET OVER THE ASCIZ 


10 
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-:73$: .ASCIZ <CRLF>/RD OFLOW / 


024244 72$: 
104 024244 016046 000064 V SRDOFL (RO) (SP) > ;SAVE SRDOFL(RO) FOR TYPEOUT 
024250 104405 TYPDS 2:60 TYPE==DECIMAL ASCII WITH SIGN 
105 Oeugse 104401 076141 TYPE  ,PERIOD *TYPE ',° 
106 024 36 104401 024264 TYPE 75$ t:TYPE ASCIZ STRING 
024262 000407 BR 4$ t:GET OVER THE ASCIZ 
026302 Fy Sa eASCIZ / WRDS READ / 
107 024302 010046 MOV RO,-(SP) :GET ADDRESS OF DPB 
108 024304 062716 000066 ADD ASREAD, (SP) :POINT TO LOW NUMBER OF WRDS READ 
109 024310 004737 037222 JSR PC, $DB2D [CONVERT DECIMAL NUMB 
110 024314 004737 032300 JSR PC. SUPRS *SUPPRESS LEADING ZEROS AND TYPE 
i 024320 104401 076141 TYPE PERIOD STYPE '.° 
113 :TYPE LINE 5 OF SUMMARY 
114 024324 104401 024332 TYPE 77$ z:TYPE ASCIZ STRING 
024330 000404 BR 6% ::GET OVER THE ASCIZ 
-:77$: .ASCIZ <CRLF>/SEEKS / 
024342 76$: 
115 024342 010046 MOV RO,-(SP) :PUT $POSIT ON THE STACK 
116 024344 062716 000052 ADD #S$POSIT, (SP) sPOINT TO LOW NUMBER OF SEEK COUNT 
117 024350 737 037222 JSR PC, $DB2D [CONVERT DECIMAL NUMB 
118 024354 004737 032300 JSR PC. SUPRS *SUPPRESS LEADING ZEROS AND TYPE 
119 024360 104401 076141 TYPE PERIOD STYPE °.° 
129 :TYPE LINES 6 AND 7 OF SUMMARY 
130 024 104401 024372 TYPE 79$ r:TYPE ASCIZ STRING 
024370 405 BR 8$ +:GET OVER THE ASCIZ 
-:79$: .ASCIZ <CRLF>/ERRORS:/ 
024404 783: 
131 024404 104401 024412 TYPE 81$ z:TYPE ASCIZ STRING 
024410 000404 BR 0$ t:GET OVER THE ASCIZ 
-:81$: .ASCIZ <CRLF>/SOFT / 
024422 80S: -_=_< 
132 024422 016046 000074 MOV SSOFT(RO),-(SP) :;SAVE $SOFT(RO) FOR TYPEOUT 
024426 104405 TYPDS *:G0 TYPE=-DECIMAL ASCII WITH SIGN 
133 024430 104401 076141 TYPE  ,PERIOD sTYPE *.° 
134 024434 104401 024442 TYPE 83$ TYPE ASCIZ STRING 
024440 BR 823 t:GET OVER THE ASCIZ 
-:83$: .ASCIZ / HARD / 
024453 82s: 
135 024452 016046 000076 MOV SHARD(RO),-(SP) :;SAVE SHARD(RO) FOR TYPEOUT 
024456 104405 TYPDS 2:60 TYPE=-DECIMAL ASCII WITH SIGN 
136 024460 104401 076141 TYPE  ,PERIOD :TYPE °. 
137 024464 104401 024472 TYPE 85$ +;TYPE ASCIZ STRING 
024470 000403 BR 843 *:GET OVER THE ASCIZ 
-:85$: .ASCIZ / SKI / 
024500 84S: 
138 024500 016046 000100 MOV SSKI(RO),-(SP) :;SAVE $SKI(RO) FOR TYPEOUT 
024504 10440 TYPDS :7G0_TYPE==DECIMAL ASCII WITH SIGN 
139 024506 104401 076141 TYPE -PERIOD STYPE °. 
140 024512 104401 024520 TYPE 87$ t:TYPE ASCIZ STRING 
024516 000404 BR 6$ t:GET OVER THE ASCIZ 
taba i878: ~ASCIZ / MISP / 
141 024530 016046 000102 MOV $MISPO(RO) ,-(SP) z:SAVE SMISPO(RO) FOR TYPEOUT 









SEQ 0119 
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0245 104405 TYPDS :7G0_TYPE==DECIMAL ASCII WITH SIGN 
148 024536 104401 o76141 TYPE -PERIOD YP 
143 02454 104401 24550 TYPE $ t:TYPE ASCIZ STRING 
024546 0004 BR $ +:GET OVER THE ASCIZ 
aia i589" .ASCIZ / OTHER / 
144 0 rk 016046 000072 MOV TOTAL (RO), 3”). ULATE NUMBER OF OTHER ERRORS 
147 0 4364 166016 000074 SUB SOFT (RO) , (SP) uetract stort FROM $TOTAL 
024570 166016 000076 SUB SHARD (RO). (SP) 2 SUBTRACT SHARD FROM $TOTAL 
024574 166016 900100 SUB $SKI(RO),(SP) | :SUBTRACT $SKI FROM STOTAL 
94600 166016 00010 SUB SMISPO(RO), (SP) ; SUBTRACT SMISPO FROM $TOTAL 
148 024604 104405 TYPDS 0. TYPE--DECIMAL ASCII WITH SIGN 
149 024606 104401 076141 TYPE  ,PERIOD i YPE 
150 024612 104401 001203 TYPE SCRLF CRLF 
151 024616 000207 RTS PC 
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1 
15 
16 


17 


18 


02 
024706 
024712 


19 





024714 


001342 
000074 
000074 


001342 
000076 
000076 


001342 
000100 
000100 


001342 
000102 
000102 


001342 
000072 
000072 


077777 


077777 


077777 


077777 


077777 


D 10 


sROUTINE TO INCREMENT $SOFT 
SSOFT WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 


SNOTE: 
INCSOF : 


1$: 





BADSEC :SEE IF BAD TRK/SEC INDICATOR SET 

1$ ‘BR IF IT'S SET, DON'T INCREMENT COUNT 
$SOFT(RO) #77777 *1$ $SOFT ALREADY AT MAXIMUM ? 
$SOFT (RO) ( sINCREMENT $SOFT 

PC : RETURN 


sROUTINE TO INCREMENT SHARD 
SHARD WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 


:NOTE: 
INCHRD: 


1$: 


TST 


BADSEC 


SHARD (RO) #77777" 


SHARD (RO) 
PC 


sROUTINE TO INCREMENT $SKI 
$SKI WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 
2 SEE fF ee TRK/SEC INDICATOR SET 


:NOTE: 
INCSKI: 


1$: 


ee 

$SK1(RO) ,#77777 
$SKI(RO) 

PC 


sROUTINE TO INCREMENT $MISPO 
SMISPO WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 
3SEE IF BAD TRK/SEC INDICATOR SET 


sNOTE: 
INCMIS: 


1$: 


TST 


BADSEC 


$ e 
SMISPO(RO) #77777 


$MISPO(RO) 
PC 


sROUTINE TO INCREMENT STOTAL 
STOTAL WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 
3SEE_IF BAD IRK/SEC INDICATOR SET 


ZNOTE: - 
INCTOT: 


1$: 


BADSEC 


1$ . 
STOTAL(RO) ,477777 


STOTAL (RO) 
PC 


3SEE y BAD TRK/SEC INDICATOR SET 


S SET, DON'T INCREMENT COUNT 
eh ALREADY AT MAXIMUM ? 
3 INCREMENT SHARD 


SET, DON'T INCREMENT COUNT 


1S $SKI ALREADY AT MAXIMUM ? 


IF 


IT IS 
s INCREMENT $SKI 


;RETURN 


IT'S SET, DON'T INCREMENT COUNT 
-1$ $MISPO ALREADY AT MAXIMUM ? 


IT IS 
s INCREMENT SMISPO 
URN 


BR IF 


RETUR 


IT'S SET, DON'T INCREMENT COUNT 
ils TOTAL ALREADY AT MAXIMUM ? 


1" zs INCREMENT STOTAL 


SEQ 0120 
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GENE 


ooooo 


NOR = 


¥SRNanNS 


RRR 
ion 


052 


POPIPOPIPINININININININININ 


PASAT APSA A tt at At tt tt 
3539995 
mo 


NPN) 2 2 tt oo 
RUNVSSe NOUEWNODONOULSWN— 


Oo 
POMIMONRD 
MVM 
SS 
eo 


25 025100 


RIFVFSESESRAES 


MOIMQIARONS 
LVS TeeS 


36 

40 

4 
2 


5 


SSSSSNSsssxssss 
geese 


° 
— 
Las we 
~~ 
oa 


001312 


000002 
001344 
000144 


025040 
001750 


025040 
033230 
032464 


076332 
001346 
033230 
032464 
076332 
001350 


033230 
032464 


001464 
177777 
001466 


025040 


001352 
001350 


001346 


001314 


001466 
001316 


E 10 
sROUTINE TO TYPE THE TIME 
STIME: TST CLKFLG 

BNE $ 
MOV #2,2$ 
MOV HOUR, -(SP) 
CMP (SP) ,#100. 
BLT 1$ 
INC 2s 
CMP (SP) ,#1000. 
BLT 1$ 
INC 2$ 
1$: JSR PC, $SB2D 
JSR R5.FILLZ 
23: WOR 0 
TYPE _, COLON 
MOV MINUTE ,-(SP) 
JSR PC,$SB2D 
JSR RS.FILLZ 
WOR 
TYPE _ , COLON 
MOV SECOND, -(SP) 
JSR PC, $SB2D 
JSR RS .FILLZ 
3$: RTS PC 
sCLOCK HANDLER ROUTINE 
CLOCK: DEC ONESEC 
BNE 
MOV HZ, ONESEC 
INC SECON 
CMP #60. ,SECOND 
BNE . 1$ 
CLR SECOND 
INC INTRVL+2 
INC MINUT 
CMP #60. ,MINUTE 
BNE 
CLR MINUTE 
INC H 
1$: CMP #50. HZ 
BEQ 
MOV #16. ,-(SP) 
BR $ 
28: MOV #20. ,-(SP) 
$: JSR PC ,RATMR 
TST INTRVL 
BEQ 
cmp INTRVL, INTRVL#2 
MOV #-1, STATIN 
CLR INTRVL+2 
4$: RTI 


TYPE 4 


:NUMBER OF HOUR DIGITS TO TYPE 
[PUT "MINUTES' ON THE STACK 





SYSTEM ? 


2 DIGITS TO TYPE 


sCLOCK ON THE 
sBR IF NOT 
ZASSUME 

sPUT ‘HOURS 
3100. HOURS 
3:BR IF_NO 
sTYPE 3 DIGIT 
21000. HOURS 
7BR IF NO 


ON THE STACK 
OR MORE ? 


DIGITS 


: CONVERT TO DECIMAL 


CONVERT TO DECIMAL 


TY 
TYPE 
a ie | 


DIGIT 


Ss 


PUT SECONDS ON THE STACK 


 CONVER 


T TO DE 


CIMAL 


s TYPE 
sTYPE 2 DIGITS 


2BR IF 


s F 
7CLEAR 
; COUNT 
; COUNT 
sAT MAX 
3sBR IF 
;CLEAR 
3; COUNT 


3BR_ IF 


A SEC 


NOT | 
THE SE 
HE 


OND NOT COUNTED 
VALUE 
SECOND 


COND'S COUNTER 


SEQ 0121 | 


THE PERFORMANCE SUMMARY INTERVAL 
THE MINUTE 
IMUM ? 


NOT 
THE MINUTE’S COUNTER 


YES 


316MS ON THE STACK @ 60HZ 
320MS_ON_THE STACK @ 50HZ 


sDRIVER 
sDISPLA 


ISPLA 
PE 


IMER_ROU 


TINE 


T 
Y THE PERFORMANCE SUMMARY ? 


T PERFORMAN 
EAR THE PERFORMANCE INTERVAL COUNTER 


NOT 
Y INTERVAL FINISHED ? 


CE SUMMARY DISPLAY FLAG 


s INCREMENT THE ONE SECOND COUNTER 
| 





C. 
RI 


w 
& 
S 
wm 


FRSe 


FUSS 
at 


vit Bm 

Yd RRSSSSN 

oo“ = _ 
888823 S33e3225 

Se SYNES SINS 

SS SuUSagsas 


=n UT 
Ww 
N 


MM Rorororr 
ia wines 
Ak OOVoe 
NEN 
WO 
nM 


oooooo oo oo oo o 


nm 
wa 
TRE 


=] 
MONS 
wi 
rs 
RSssnsss 
Sasa SASS 
WANN nw 


nN 
Nm 


—_ 
NOS 


MOnw 


_ 
mR 


MIMI 


SREELT 
~ rs 
Ww—O- 

a) 


MUIAVIVUIUIVIUIES B BREE and AA RIMININININININDID 2 2 Ot Oo 
L=] =) =] 

Seabed) 

wu 


°33 
sus 
gases 
=h\— 
FISSS 


ANNU 


076231 


001340 
001542 
003532 


000124 
000101 
000067 
000060 
177770 
000124 
026556 
000104 
026356 
000123 
026464 
000127 
001440 
000001 


CZRNAAO RM80 PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 27 
GENERAL SUPPORT SUBROUTINES 


COMMAND DECODE ROUTINE 
;CALL: 


MOV #1,CFLAG 
JSR PC .KSR 
RETURN 

RETURN2 


TST DTUW 
KSR 


#PR4 PS 


TYPE eENTC 
RDLIN 

MOV (SP)+,R5 
TST _ 
BEQ $ 

TST ASNLST 
BNE 13$ 

JMP START 
INC RS 

C #°T,(R5) 
BEQ 9$ 

Cc #°A, (RS) 
BEQ 

CMPB (R5) .#°7 
BHI 


12$ 
CMPB (R5) ,#°0 


BICB #*C7,(R5) 
CMPB #°T,~1(R5) 


JSR PC ,NEWASN 

CMPB €,9.94 CRS? 

JSR PC ,DEASGN 

CMPB Ss #°S,,~1(R5) 

JSR PC .SCMND 

CMPB ss #*W, = 1 (R5) 
8$ 


BNE 

TST RDONLY 
BNE 

BIT #SWO0,aSWR 
BNE 11$ 


RMADR ,R4& 
«alba 


3"CFLAG’ IS NORMALLY SET BY THE TTY SERVICE 
ROUTINE IN INTERRUPT MODE 


3SYSTEM BUSY RETURN 
sRETURN AFTER KEYBOARD SERVICED 


ANY DATA TRANSFERS UNDER WAY ? 
*SAVE THE REGISTERS 

TSET PRIORITY TO 4 

*GET RM/KH BASE ADDRES 
*CLEAR MASSBUS CONTROLLER 
; CLEAR THE "CONTROL C° FLAG 
:TYPE THE TIME 

SINITIALIZE TTY KEYBOARD 
"ENTER COMMAND’ 

READ THE KEYBOARD 

OF INPUT STRING 
[CHECK THE CONT 

7BR IF NO "CONTROL C° ENTERED 
ANY DRIVES ASSIGNED 

JUMP TO START 

:POINT TO SECOND CHARACTER 
"EQ TOA 'T' ? 


[GET ADDRESS 


[EQ TO AN ‘A’ 


3BR IF IT IS 

DRIVE NUMBER GREATER THAN AN ASCII 7 ? 
sBR IF IT IS 

sDRIVE NUMBER LESS THAN AN ASCII 0 ? 


BR IF IT I 


BR I 


: F NOT EQ 
zASSIGN DRIVE FOR TEST 


sEXIT 
sEQ TO "D® ? 


3BR_IF NOT EQ 
sDEASSIGN DRIVE 


sEXI 

:EQ@ TO °S° 
:BR IF NOT 
3s TYPE STATI 


fee 
+ 


I 
F YES 
WITCH O SET 
F SE 





[LEAVE ONLY LOWER 3 BITS IF CHAR NOT ‘A* 
EC TO "T° 


NOT FQ 
DIN "READ ONLY"* MODE ? 


? 
T, CAN’T DO ‘WwW’ COMMAND 


6 10 
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8 0 $512 737 026600 7$: JSR PC DATAPK :WRITE A DATA PACK 
551 a BR 13 SEXIT 

60 025520 122765 000122 177777 8$: CMPB so #*R, = 1 (RS) 7EQ TO 'R’ ? 
61 0255. 99104 BNE $ *BR IF NOT EQ 
6¢ 0255 37 026566 JSR PC ,REDAPK SREAD A DATA PACK 

0255 900443 BR 1 EXIT 
64 025536 122765 000127 177777 98: CMPB OW" W,=1(R5) :WT COMMAND ? 
65 025544 0010 BNE 12$ NO 
66 025546 005737 001440 TST RDONLY [LOCKED IN "READ ONLY’’ MODE ? 
67 02555 001026 BNE 11$ “BR IF Y 
68 025554 032777 000001 153372 BIT #SWO,aSuR 21S SWITCH O SET ? 
69 025562 102 BNE 11$ [BR IF SET, CAN'T DO "Ww" COMMAND 
70 025564 122765 000101 000001 CMPBsd#'"A,, 1 (5) TALL DRIVES ? 
71 025572 01415 BEQ 10$ YES 
ie 025574 126527 000001 000067 CMPBs«d1(R5) ,#°7 *GREAT THAN 7 

025602 101015 BHI $ YES 
74 025604 126527 000001 000060 CMPB—s«d31(R25) ,#°0 [LESS THAN 0 
75 025612 103411 BLO 12$ YES 
76 025614 142765 177770 000001 BICB = #*C7,1 (RS) [CHOP OFF THE HIGHER BITS 
77 025622 004737 026612 10$: JSR PC ,WATPAK :ASSIGN DRIVES WITH WT COMMAND 
78 025626 000406 BR 13$ 
79 025 104401 076143 11$: TYPE MSWRO TYPE ‘CAN'T WRITE IN READ ONLY MODE’ 
80 025634 000616 $ :TRY AGAIN 
81 025636 104401 076206 12$: TYPE INVLD sTYPE ‘INVALID COMMAND’ MESSAGE 
82 025642 000613 BR $ [TRY AGAIN 
83 025644 104413 13$:  RESREG SRESTORE RO - RS 
84 025646 005777 153310 TST a$TKB sCLEAR THE TTY BUFFER 2 
85 025652 052777 000100 153300 BIS #B81T06,a$TKS | :SET TTY INTERRUPT ENABLE 
86 025660 005037 177776 CLR PS 3SET PRIORITY BACK TO ZERO 
+14 025664 000207 RTS PC sRETURN . 
a4 ROUTINE TO PROCESS THE ASSIGN REQUEST (‘T’, °R*, OR *w° COMMANDS) 
91 025 111504 ASSIGN: MOVB = (R5) ,R4 sPUT DRIVE # IN R4& 
4 025670 005037 001340 1$: CLR CFLAG [CLEAR CONTROL C FLAG 
93 025674 005037 001442 CLR DRVPAR ASSUME CHANGING DRIVE PARAMETERS 
94 025 104401 077344 TYPE ,MSPRM [TYPE "CHANGE DRIVE PARAMETERS ?° 
95 025704 104411 RDLIN *READ THE ENTRY 
% 025706 12600 MOV (SP)+,RO [SAVE ADDRESS OF RESPONSE 
on Osa? ets 001340 TST us sWAS IT CONTROL C ? 
99 02571 teats TSTB =—_- (ROD [WAS RESPONSE A CARRIAGE RETURN (DEFAULT 'N')? 
100 025 001414 BEQ 3$ BR IF YES 
101 028 e 105760 000001 TSTB =: 1(RO) iWAS IT fERMINATED WITH CARRIAGE RETURN ? 
198 085 1 2710 000131 C #*Y, (RO) [WAS IT A *Y* RESPONSE ? 
104 025 141 BEQ 4$ ‘BR IF Y 
105 0 3736 1 2710 000116 CMPB Ss #"N, (RO) [WAS IT A °N® RESPONSE ? 
106 02574 140 BEQ ‘BR IF YES 
107 0 5744 104401 076341 2s TYPE BADENT STYPE BAD ENTRY MESSAGE 
108 3730 767 BR i$ [TRY AGAIN 
109 02575 937 001442 3$: INC DRVPAR *DO NOT CHANGE DRIVE PARAMETERS 
110 025736 122704 000101 4s: CMPB "ARG SASSIGN ALL DRIVES ? 
HF 5762 001426 BEQ ASGN2 *BR IF YES 
113 025764 012737 075355 031200 ASGNI: MOV #UNTASN,ASNMSG ;°DRIVE ASSIGNED’ MESSAGE ADDRESS 
114 033765 005737 oriaae TST XXDP 


sLOADED FROM THIS DEVICE ? 





RO 
a 


dad aod Fa 
Nu 
: 


Seseeseses 
SESSSSSSSS 
Pesrererss 


escees 
Peevere 


$8 
S 
~™ 
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AR 

So 
NM 
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nm 
o 
et 
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io 


Be 
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oSoooo ocoooo 
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AAA 
—_ 3 

ww 
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moe 
ed ed ad ad ed ed 
RSSFS 


es 
s2pSe5s 


Se 


ee ed ed ad ed ed et td = 
SSRURUKUNSSSESES, 
S88 
on 
z 


Soooeo 
POPOPOMONONY 
RROD 
nd aed od 
AVIS 


LR 
¥SRAN 


NERS 
Seseree 


Soooooooocoe: 
PP) 
NN 


MMMM 
tates 


eB ab ed ed ed ed ed ech 
BISALAVTS 


~ 
a 


pow) 


F EXER MAC 
SUBROUT INE 


123704 00 


ise ¢ 04 
004737 02 


000137 03 


5 
Oie737 075355 
005737 001444 


123704 00 
012737 07 


004737 03 


136437 04 
001060 
06 


00 
01 


Sseces 
GEES 
SEUSEy 


0 


3 

5 

7 

7 0 
7 

7 00 
7 

1 


FoF 


Ne 
Sousus 
Qo N= 


08 


075464 


040300 
026130 
000007 
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1444 
031200 
0300 01542 
6130 


1154 
031200 


1444 
5464 031200 


001542 


1154 


0300 
7556 


2056 
5624 


001542 


040164 


026630 


7550 
7650 
1442 


076034 


7054 
0254 


1$: 


2s: 


ASGN2: 
1$: 


2$: 


3$: 


4$: 


ASGN3: 


1$: 


H 10 


1$ :BR IF NO 
XXDP,R4 ; LOADED from THIS DRIVE ? 
MLODEV,ASNMSG :°LOAD DEVICE’ MESSAGE ADDRESS 
ATABIT(R4) ,ASNLST “DRIVE ALREADY ASSIGNED ? 
$ sBR IF IT IS 
PC,ASGN3 [SEE IF DRIVE ON THE SYSTEM 
RETURN 
ASNERR SEXIT ERROR 
R4 sSTART WITH DRIVE 0 
MUNTASN,ASNMSG ERROR MESSA 
XXDP SLOADED FROM THIS DEVICE ? 
2s zBR IF NO 
XXDP,R4 : LOADED FROM THIS DRIVE ? 
#LODEV.ASNASG * "LOAD DEVICE’ MESSAGE ADDRESS 
ATABIT(R4) ,ASNLST sALREADY ASSIGNED ? 
PC,ASGN3 TASSIGN THE DRIVE 
RG S INCREMENT DRIVE # 
R4A7 TALL DRIVE CHECKED ? 
1$ 3NO 
PC YES 
PC ,ASNERR TERROR MESSAGE 
3$ :T0 LOOP 
ATABIT(R4) ,ASNLST 1oREve ALREADY ASSIGNED ? 
R4,GENDPB :GET DRIVE NUMBER 
R [MAKE R4 WORD INDEX 
BLKADR(R4).RO :PUT BLOCK'S ADDR INTO RO 
PC ,RECALO SRECALIBRATE DRIVE 
R [MAKE R4 BYTE INDEX 
DRVSTA(R4) SDRIVE AVAILABLE? 
ASGN7 SBR IF DRIVE OFFLINE OR NONEXISTENT 
‘BR IF DRIVE UNSAFE 
PC, CLRDPB *CLEAR BLOCK FOR DRIVE JUST ASSIGNED 
PC.GETID ?GET DRIVE (MBA) SERIAL NUMBER 
R5.GETADR SRETRIEVE BAD SECTOR FILE 
DRVPAR :C NGE, OR VE PARAMETERS ? 
DRNUM [TYPE DRIVE MESSAGE 
R4,-(SP) 3 R4 FOR TYPEOUT 
°:60 TYPE=-OCTAL ASCII 
S:TYPE 2 DIGIT(S) 
SUPPRESS LEADING ZEROS 
SCRLF CRLF 
PC, TYDRV ‘TYPE DRV SERIAL NUMBER 
:TYPE TAB CONTR 
PC, TYHDA STYPE HDA SERIAL NUMBER 
SCRLF :CR-LF 
4 ZMAKE_R4 WORD INDEX 
PC, DRVPRM [GET THE DRIVE'’S ADDRESS LIMITS 
PC. MANTER ‘MANUALLY ENTER BAD SECTOR INFORMATION 


SEQ 0124 


CZ 
TY 
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1 4 0 016464 2 01566 MOV srg ee NEWUN WUNT (R4) ;DPB ADDRESS 

170 % 118769 804520 Roose MOVB PACK,S$PACK(RO) ;SET READ/WRITE DATA PACK INDICATOR 
171 026276 0062 ASR R4 sMAKE R4 BYTE INDEX 

ive 026 000207 ASGN4: RTS PC RETURN 

174 026302 012737 075454 031200 ASGN6: MOV WNOTSAF ,ASNMSG ;‘UNSAFE" MESSAGE ADDRESS 

173 026310 0001357 031154 JMP ASNERR 370 ERROR ROUTINE 

177 026314 105764 040174 ASGN7: TSTB DRVTYP(R4) sDRIVE PRESENT? 

178 026320 001405 BEQ 1$ 

179 026322 soorg L 2s BR. Hd sa OF FLINE 

180 026324 012737 075403 031200 MOV #NOTRM,ASNMSG AD S OF "NOT RM80° MSG 

181 026332 000407 BR Ext im 

186 $5335 012737 075420 031200 1S: MOV WNOTPRS,ASNMSG ADDRESS OF ‘NOT PRESENT’ MSG 

183 026342 000403 BR $ ZEX 

184 026344 012737 075312 031200 2$: MOV WUNTOFF ASNMSG ADDRESS OF "DRIVE OFFLINE MESSAGE 
185 026552 000137 031154 3$: JMP ASNERR 3TO ERROR ROUTINE 
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001542 


00154 
03201 


001544 


031200 


001542 


031200 


001320 


J 10 


SEQ 0126 


3"D* COMMAND (ROUTINE TO DEASSIGN A DRIVE) 


DEASGN: CLR R4 sSTART WITH DRIVE 0 
MOV #8. .R3 * COUNTER 
CMPBsé#'"A, (RS) *DEASSIGN ALL DRIVES ? 
BEQ 4 <BR IF YES 
MO (RS) -R4 :GET DRIVE NUMBER 
MOV #1,R “SET R3 FOR ONE DRIVE 
1$: giTB ATABIT(R4) ,ASNLST ;DRIVE ASSIGNED ? 
BICB ATABIT(R4),ASNLST sDELETE THE DRIVE FROM THE ASSIGNED LIST 
BICB ATABIT(R4).AUTLST “DELETE DRIVE FROM AUTO ASSIGN LIST 
ASL R :MAKE ADDR INTO A WORD INDEX 
mov BLKADR(R4) ,DDRVS(R4) sPUT ADDRESS IN DEASSIGN LIST 
2$ DEC R3 sANY MORE DRIVES ? 
BEQ 4$ ‘BR IF NOT 
ye ORS 
3$ MOV WUNTNOT,ASNMSG ADDR OF ‘NOT ASSIGNED* MESSAGE 
JSR PC ,ASNERR SREPORT IT 
BR 2$ 
4$: RTS PC 
:"S*" COMMAND (ROUTINE TO TYPE DRIVE PERFORMANCE SUMMARY) 
SCMND: 
MOV ASNLST,.-(SP) | :;PUSH ASNLST ON STACK 
CMPBs«#'"A, (R'5) tALL STATISTICS ? 
BEQ 2$ [BR IF YES 
MOVB  (R5) ,R& [GET DRIVE NUMBER 
BITB  ATABIT(R4),(SP) :IS THIS DRIVE ASSIGNED ? 
BEQ 1$ “BR IF 
MO ATABIT(R4) ,ASNLST :GET DRIVE ASSIGN BIT 
BR 3$ 
1$: MOV MUNTNOT,ASNMSG ADDR OF ‘NOT ASSIGNED’ MSG 
JSR PC ,ASNERR : TYPE ERROR MESSAGE 
2$: TSTB = ASNLST SANY DRIVE ASSIGNED ? 
BEQ 4$ :BR IF NO 
3$: JSR PC, STATPR [TYPE ALL STATISTICS 
me TYPE  ,STARS STYPE ‘eeee,. ETC’ 
mov (SP)+,ASNLST | ;;POP STACK INTO ASNLST 
RTS PC 


:"T* COMMAND (ROUTINE TO TEST A DRIVE) 


NEWASN: CLR PACK 3SET_*T* COMMAND INDICATOR 
JMP ASSIGN G0 TO THE ASSIGN ROUTINE 


7"R* COMMAND (ROUTINE TO READ A DATA PACK) 


REDAPK: MOV #1,PACK :SET THE "READ® INDICATOR 
JMP ASSIGN SASSIGN THE REQUESTED DRIVE 
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z"W* COMMAND (ROUTINE TO WRITE A DATA PACK) 


56 
‘ 
59 026600 aE 177777 001320 DATAPK: MOV #-1,PACK sSET THE *W* COMMAND INDICATOR 
$ 026606 000137 025666 JMP ASSIGN sASSIGN REQUESTED DRIVE 
$¢ 3"WT* COMMAND (TO WRITE A PACK AND TEST A DRIVE) 
64 026612 116515 000001 WATPAK: MOVB 1(R5) , (R5) sADJUST DRIVE NUMBER ADDRESS 
65 026616 012737 177776 001320 MOV #~2 ,PACK sPACK WRITE COMMAND 
026624 000137 025666 JMP ASSIGN zJUMP TO ASSIGN ROUTINE 


DONAULSWNR— 
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MINN 
ao 
wu 
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000002 
000012 
000002 


000002 
000106 


000002 
002004 


000064 
177777 


000002 
001514 


177776 


000024 


000002 
000030 


000020 
000004 


000022 
000104 
000024 


000022 


sROUTINE TO GET 
; CALL: 
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ica TO CLEAR THE DPB FOR THE ASSIGNED DRIVE 


PB,RO 3DPB ADDRESS 
PC, PCLRDPB 


7RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 


R1,-(SP) : PUSH R1 ON STACK 

R3,-(SP) 3PUSH R3 ON STACK 

R4,~(SP) 3 PUSH R4 ON STACK 

R5,=(SP) 3PUSH RS ON STACK 

PWRFLG SRETURNING FROM POWER FAIL ? 
4$ 7BRANCH IF YES 

Rohe 7GET THE DPB 


ADDRESS 
#2.R4 SADDRESS OF FIRST LOCN TO BE CLEARED 
Ac$CYL-SCOMND>® +2.R3 :NUMBER OF LOCNS TO BE CLEARED 
SCLEAR THE LOCATI 
ff ns :DONE CLEARING YET ? 


NO 

SKIP OVER THE "$REG" LOCATION 

AcSNEXT-STATUS>*2, R3 ER OF LOCNS TO BE CLEARED 
CLEAR THE UBEATION 

i5°Rs :DONE CLEARING YET ? 


#<SDRVSN-SF IRST>,R4 3SKIP OVER FIRST FLAG, MIN/MAX ADRS 
MITS AND BAD SEC 


: TOR TABLE 
#<SRMCS3-SDRVSN>+2, R3 NUMBER OF LOCNS TO BE CLEARED 
s INITIALIZE TERMINATOR FOR BAD SECTOR TABLE 
aasen :CLEAR A LOCATION 
sy aR DONE CLEARING YET ? 


:BR IF NO 
BEGCOD, SCODE (RO) iN ITIAL COMMAND CODE 
BEGCOD.R1 T THE ACTUAL OP CODE 
COMTBL (R1) ScOMND (RO) ZOPERATION ¢ CODE 
BEGPAT SPATTC(RO) “PATTERN CODE 

c :CONVERT CODE TO A TABLE INDEX 

BEGUC. SWRDL(RO) 3BEGINNING WORD COUNT 
BEGMC SUCNT(RO) ; VALUE FOR DATA TRANSF 
SWC *MAKE IT INTO 2°S COMPLEMENT 
#56, -SSSEC(RO) SINITIAL VALUE OF SECTOR SIZE 

1,$PASSC(RO) :PRESET PASS COUNT TO 1 

a" cope (ROD SHEADER C ? 


4$° 3BR_IF NOT 
#2,$SSEC(RO) ZADD HEADER SIZE TO SECTOR SIZE 


(SP)+,R5 3POP STACK INTO R5 

(SP)+,R4 *POP STACK INTO R4 

(SP)+,R3 3 POP STACK INTO R3 

(SP)+,R1 “POP STACK INTO R1 
*RETURN 


ADDRESS LIMITS FROM THE OPERATOR 
#DPB.RO 3DPB ADDRESS 
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34 : JSR PC,DRVPRM :CALL ROUTINE 
36 [RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
58 027054 010346 DRVPRM: MOV R3,~(SP) :SAVE R3 
59 027056 010446 MOV R4.=(SP) SSAVE R4 
60 027 105737 001150 TSTB $AU TOB RUNNING IN AUTO MODE ? 
61 027064 001010 BNE 1$ BR I 
7 005737 001336 TST CHGADR {PROGRAM STARTED AT 200 ? 
63 027072 003005 BGT 1 <BR IF YES 
64 027074 005737 001442 TST DRVPAR :CHANGE DRIVE PARAMETERS ? 
65 027100 001002 BNE 1$ : NO 
4] 027102 104401 076252 TYPE oENTLAT 3: "ENTER ADDRESS LIMITS‘ 
68 027106 004737 027462 1$: JSR GETLMT :GET ADDRESS LIMITS 
69 027112 062760 177777 000124 ADD Aah SFIRST(RO) SEE IF FIRST TIME STARTED 
70 027120 103426 BCS “BR IF NO 
71 027122 013760 001422 000126 MOV CYLIMT, MAXCYL (ROS ;LOAD MAXIMUM CYLINDER 
72 027130 013760 001426 000132 MOV TRKLMT .MAXTRK (RO) SLOAD MAXIMUM TRACK 
73 027136 013760 001424 000136 MOV SECLAT. »MAXSEC (RO) LOAD MAXIMUM SECTOR 
74 027144 9005737 001434 TST FEFLAG USING rét CYLINDERS ONLY ? 
75 027150 001004 BNE [BR IF NO 
76 027152 013760 001430 000130 MOV FE1,MINCYL (RO) *RESET MINIMUM CYLINDER ADDRESS 
77 027160 000402 BR 4 
78 027162 005060 000130 2$: CLR MINCYL (RO) :CLEAR MINIMUM CYLINDER 
79 027166 005060 000134 3$: CLR MINTRK (RO) [CLEAR MINIMUM TRACK 
80 027172 005060 000140 CLR MINSEC (RO) *CLEAR MINIMUM SECTOR 
82 027176 105737 001150 4$: TSTB © $AUTOB :RUNNING IN AUTO MODE ? 
83 027202 001113 BNE 9$ 7BR IF Y 
84 027204 005737 001336 TST CHGADR zPROGRAM STARTED AT 200 ? 
85 027210 003110 BGT 9$ BR IF YE 
027212 005737 001442 TST DRVPAR ; CHANGE DRIVE PARAMETERS ? 
87 027216 001105 BNE 9$ :BR IF N 
88 027220 016403 100042 MOV TABLE(R4),R3. : PARAMETER TABLE ADDRESS 
89 027224 013763 001422 000002 MOV CYLIMT,2(R3) 3LOAD CYLINDER LIMIT FOR MINCYL 
90 027232 013763 001422 000010 MOV CYLIMT.10(R3)  :LOAD CYLINDER LIMIT FOR MAXCYL 
91 027240 013763 001426 000016 MOV TRKLMT216(R3) | :LOAD TRACK LIMIT FOR MINTRK 
92 027246 013763 001426 000024 T.24(R3) CK LIMIT F TR 
93 027254 013763 001424 000032 MOV SECLMT.32(R3)  :LOAD SECTOR LIMIT FOR MINSEC 
94 027262 013763 001424 000040 MOV SECLMT,40(R3)  ;LOAD SECTOR LIMI S 
99 027270 004737 031030 JSR PC, PARENT SGET THE DRIVE'S PARAMETERS 
97 027274 016003 000130 MOV MINCYL(RO),R3 ;STORE MINCYL VALUE 
98 027300 016 000126 MOV MAXCYL(RO).R4 :STORE MAXCYL VALUE 
99 027304 020304 CMP R3,R4 31S MIN. LESS THAN OR EQUAL TO MAX. ? 
100 027 003404 BLE [BR IF YES 
101 027310 010360 900126 MOV R3.MAXCYL(RO) :SWAP MIN. TO MAX. 
102 027314 010460 000130 MOV R4.MINCYL(RO) :SWAP MAX. TO MIN. 
103 027320 016003 000134 5$: MOV MINTRK(RO),.R3 : STORE MINTRK VALUE 
104 027326 016004 000132 MOV MAXTRK(RO).R4 STORE MAXTRK VALUE 
195 0273 020304 CMP R3,R4 31S MIN. LESS THAN OR EQUAL TO MAX. 
106 027332 003404 BLE IF YES 
107 027334 Heed 000132 MOV R3,MAXTRK(RO) 3 SWAP MIN. TO MAX. 
108 027340 10460 134 MOV R&-MINTRK(RO) :SWAP MAX. TO MIN. 
109 027344 016003 000140 6$: MOV MINSEC(RO) .R3 STORE MINSEC VALUE 
110 027350 016004 136 MOV MAXSEC(RO).R4 STORE MAXSEC VALUE 
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111 027354 020304 CMP R3,R4 31S MIN. LESS THAN OR EQUAL TO MAX. ? 

Ne 027356 003404 BLE 7$ <BR IF YES 

113 027360 010360 000136 MOV R3,MAXSEC(RO) :SWAP MIN. TO MAX. 

114 027364 010460 000140 MOV _—s«&R4.MINSEC(RO) SWAP MAX. TO MIN. 

116 027370 005737 001434 7$: TST FEFLAG SUSING FE CYLINDERS ONLY ? 

117 027374 001016 BNE <BR IF NO 

118 027376 026037 000130 001430 CMP -- MINCYL(RO),FE1 :1S MIN. CYLINDER < 1ST FE CYLINDER ? 

119 027404 103003 BHI: <BR IF NO 

120 027406 013760 001430 000130 MOV FET MINCYL (RO) YES, RESET MIN. CYLINDER 

121 027414 026037 000126 001430 8$: CMP (RO),FE1 :1S MAX. CYLINDER < 1ST FE CYLINDER ? 

122 027422 103003 BHIS oe <BR IF NO 

125 027424 13760 001432 000126 MOV FE2,MAXCYL(RO) YES, RESET MAX. CYLINDER 

135 027432 016060 000130 000012 98: MOV _—s MINCYL(RO) ,$CYL(ROD sINITIAL CYLINDER VALUE 

126 027440 116060 000134 000011 MOVB - MINTRK(RO) .$TRK(RO) SINITIAL TRACK VALU 

127 027446 116060 000140 000010 MOVB MINSECCROD. *$SEC (RO) *INITIAL SECTOR VALUE 

128 027454 012604 MOV (SP)+,R4 POP STACK INTO RG 

027456 012603 MOV (SP)+.R3 *POP STACK INTO R3 

129 027460 000207 RTS PC 3jpop 

131 : ROUTINE TO GET THE ADDRESS LIMITS FOR THE CURRENT DRIVE TYPE 

133 pear PC,GETLMT ZCALL ROUTINE 

139 RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 

137 027462 005737 001434 GETLMT: TST FEFLAG USING FE CLYINDERS ONLY ? 

138 027466 001004 BNE 

139 027470 013737 001432 001422 MOV FE2,CYLIMT :GET SND FE CYLINDER 

140 027476 000403 BR 2$ 

14@ 027500 012737 001056 001422 1$: mov #558.,CYLIMT | ;GET LAST CYLINDER 

143 027506 012737 000015 001426 2S: MOV so#13. » ERRUMT GET LAST. TRACK FOR AN RM8O 

144 027514 012737 000036 001424 MOV #30..S :GET LAST SEC 

149 027992 056760 001000 002172 BIT FeSE1 SRMOF (RO) is SKIP SECTOR INHIBIT SET ? 

147 027532 005760 000112 TST $SSENB(RO) WAS SKIP SECTORING ENABLED DURING XFER ? 

148 0275 1403 BEQ 4$ BR IF NO 

149 027540 012737 000037 001424 3$: MOV  #31.,SECLMT GET LAST SECTOR 

150 027546 000207 4$: RTS PC RETURN 


C2! 
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1 sROUTINE TO GET THE DRIVE (MBA) SFRIAL NUMBER FROM RMSN REGISTER 
é *THIS NUMBERS CONTAINED IN THE REGISTER ARE ONLY THE 4 LSD'S OF THE 
‘SERIAL NUMBER. 
4 CALL: 
5 : MOV #DPB,RO :DP'3 ADDRESS 
g : JSR PC,GETID SCALL ROUTINE 
8 :RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
10 027550 GETID: 
027550 010046 MOV RO,-(SP) :2PUSH RO ON STACK 
027552 010146 MOV R1,-(SP) + :PUSH R1 ON STACK 
027554 010246 MOV R2,~(SP) + PUSH R2 ON STACK 
027556 010546 MOV R5,-(SP) PUSH R5 ON STACK 
11 027560 010002 MOV RO.R :GET INDEX TO DPB 
i 027562 004737 045062 JSR PC. SVRH70 SSAVE ALL REGISTERS 
13 027566 012702 000004 MOV #4,R SFOUR DIGITS TO STORE 
14 027572 016001 002170 MOV SRMSN(RO),R1 SERIAL NUMBER 
15 027576 005005 1$: CLR R5 : 
16 027600 006101 ROL R1 [PUT THE NEXT DIGIT 
17 027602 006105 ROL RS TINTO RS 
18 027604 006101 ROL R1 
19 027606 006105 ROL R5 
20 027610 006101 ROL R1 
21 027612 006105 ROL RS 
22 027614 006101 ROL R1 
23 027616 006105 ROL 
24 027620 062705 000060 - ADD #°0,R5 :MAKE IT ASCII 
25 027624 110560 002130 MOVB  RS,$DRVSN(RO) SAVE DRIVE (MBA) SERIAL NUMBER DIGIT 
26 027630 005200 INC RO [GET NEXT INDEX FOR DRIVE (MBA) SERIAL NUMBER 
27 027632 005302 DEC R2 TALL DIGITS TYPED? 
28 027634 003360 BGT 1$ ‘NO == BRANCH 
29 027636 012605 MOV (SP)+,R5 ::POP STACK INTO RS 
027640 012602 MOV (SP)+-R2 ::POP STACK INTO R2 
027642 012601 MOV (SP)+.R1 +:POP STACK INTO R1 
027644 012600 MOV (SP)+.RO ::POP STACK INTO RO 
30 027646 000207 RTS PC SRETURN 
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1 .SBTTL READ DEC144 FILE 
s THIS ROUTINE , IS USED TO READ THE DECTGA BAD SECTOR FILE FROM CYLINDER 
4 7558. + AND To STOR EH ILE IN IT° RESPECTIVE DPB TABLE. 
5 THE D in ier & THE ENT IRE HFG G AND USR PORTIONS 
6 OF THE E ECI Fie. winrcst 6. a Mies AND USR=126. ENTRIES) EVERY TIME 
7 3 AME D SS1IGNNED E IS READ TO DETERMINE ME” sSTATUS 
8 :0F THE tERAENT HDA eee PIAL © WURBER. BUT, IN ORDER TO INITIALIZ 
2 ;BAD SECTOR ENTRY TABLE, AT LEAST ONE OF FOLLOWING STATEMENTS must BE VALID. 
u oP) - FIRST TIME PROGRAM WAS STARTED 
13 2) a LOCATION "BADBLK’ IS EQUAL TC 1 
15 $3) LOCATION "BADBLK* IS EQUAL TO 0 AND THE HDA 
16 : SERIAL NUMBER CHANGED SINCE THE LAST TIME IT WAS 
vv 3 READ. (DEFAULT) 
19 :NOTE: IF THE SERIAL NUMBER HAS CHANGED, THIS MOST LIKELY MEANS THAT THE 
30 HDA OR DRIVE HAD BEEN REPLACED WHILE THE DRIVE WAS DEASSIGNED. 
22 ?THIS ROUTINE CHECKS THAT THE TWO SERIAL NUMBER WORDS ARE NOT ZERO 
23 AND THE ENTIRE SERIAL NUMBER IS POSITIVE. ALSO, WORDS 3 AND 4 AR ARE 
24 CHECKED TO BE ALL ZERO WORDS. IF THE DEC144 FILE DOES NOT COMPLY 
25 iuiTA THiS STUCTURE, AN ERROR MESSAGE IS TYPED AND THE ROUTINE IS EXITED. 
27 CALL 
28 : MOV #DPB,RO :DPB ADDRESS 
23 ; JSR R5,GETADR TREAD DEC144 BAD SECTOR FILES 
31 [RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
3 027650 GETADR: 
027650 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
027652 010246 MOV R2,-(SP) 3 3PUSH Re ON STACK 
027654 010346 MOV R3.-(SP) S ON STACK 
34 027656 004737 027462 JSR pC.GETLAT :GET ADDRESS LIMITS 
35 027 010001 MOV *DPB ADDR 
36 0 062701 000146 AND #SBDSEC R1 ZADDRESS OF BAD SECTOR TABLE 
3 0 010146 MOV (SP + PUSH R1 ON STACK 
111037 067556 MOVB tn). NOPB : DRIVE NUMBER 
39 012737 001056 067570 MOV 8. cere 3LAST CYLINDER 
40 113737 001426 067567 MOVB TaKuat “GET LAST TRACK 
41 11 30 0675 MOVB gE ENOPS +$SEC_ :GET STARTING SECTOR OF 16 BIT MFG FILE 
4¢ 0 012737 17746 756 MOV pd 6. ,GENDPB+$ suint sONE SECTOR WORD COUNT 
4 112737 000171 06756 MOVB  #RDDAT,GENDPB+SCOMND READ DATA COMMAND 
44 0 012737 000010 001270 MOV #8. ,$CDW :GET LAST SECTOR OF 16 BIT MFG FILE 
45 012703 101174 1$: MOV #CYLNDR,R3 [GET READ BUFFER ADDRESS 
46 904057 041000 JSR RO,RM8O TREAD CURRENT SECTOR 
47 0675 GENDPB 
48 0 00077 $ WAIT FOR QUE 
49 00575 067574 23: TST GENDPB+STATUS  :READ DONE YET ? 
50 1775 BEQ $ : NO 
51 1 10 L [BR IF NO ERROR, ELSE 
3¢ 06 3 900002 067 566 ADD i GENDPB+$SEC__: INCREMENT NEXT "SECTOR TO READ 
5 123737 001 67566 CMPB sch ,GENDPB+$SEC E ALL SECTORS TRIED ? 
54 103357 BHIS BR IF no 
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177774 


067566 
001510 
177770 
177772 


177770 
177772 


000176 


067566 


000012 
000036 


076442 
076362 
075304 


001203 
teed 
177777 


177777 


000012 


000142 
000144 


000142 
000144 


000012 


067566 
001270 


000144 


3$: 


4$: 


5$: 


6$: 
7$: 


9$: 


10$: 
11$: 
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10$ :BR IF UNSUCCESSFUL ON RETRIES 

(R3)+ [DON'T CHECK LSB'S OF SERIAL NUMBER 
(R3)+ TARE MSB'S OF SERIAL NUMBER VALID ? 

9$ ‘BR IF MINUS (CORRUPT) 

4$ ‘BR IF NOT ZERO (PLUS) 

-4(R3) TARE SERIAL NUMBERS ZERO ? 

9$ BR Ma YES (CORRUPT) 

(R3)+ ‘1S 3RD WORD ALL 0°S ? 

9$ *BR IF NO (CORRUPT 

(R3)+ *I1S 4TH WORD ALL O'S ? 

‘BR IF NO (CORRUPT) 

GENDPB+SSEC.#10. ~ ® yiREADING USR BAD FILE ? 
BADBLK INIT. BAD SECTOR TABLE ENTRIES ? 
710(R3) ,SHSNLCRO) me uiPPE LSB'S OF S/N SAME AS BEFORE ? 
<6(R3) ,SHSNM(RO) “ARE MSB'S OF S/N SAME AS BEFORE ? 
-10(R3) ,SHSNL (ROS SSTORE HDA SERIAL NUMBER 
=6(R3) , $HSNM(RO) 

#126. ,R2 sNUMBER OF ENTRIES PER FILE (MFG/USR) 
(R3)+, (R1)¢ [STORE BAD CYLINDER ADDRESS 

(R3)+, (R1)¢ *STORE BAD TRK/SEC ADDRESS 

Re :DONE WITH ENTRIES ? 

GENDPB+SSEC #10. “USR BAD FILE DONE YET ? 

#10. ,GENDPB+SSEC" “GET STARTING SECTOR OF USR FILE 
#30. ,$CDW2 :GET LAST SECTOR OF USR FILE 

(SP) -<R1 [GET BEGINNING OF SBDSEC TABLE 

(R1) *I1S THIS TERMINATOR ? 

$ :BR IF NO 

= ¢R1) *FOUND TERMINATOR, BACKUP 1 WORD 


R2 
#-1, (R1)¢ 
#~-1.(R1)¢ 
R 
12$ 
4-1, S$HSNM(RO) 
14$ 
(SP)+ 
(SP)+,R3 


zREPORT, INVALID DEC144 FILE STRUCTURE 


: : SUPPRESS LEADING ZEROS 
+:POP STACK INTO R1 
R OF ENTRIES ALLOWED 


3 TOTAL NUMBE 
ZINITIALIZE CYLINDER LOCATIONS TO -1 
sINITIALIZE TRK/SEC LOCATIONS TO -1 
sDONE YET ? 


‘ NO 

INDICATE SERIAL NUMBER IS UNKNOWN 
sRESTORE STACK 

33POP STACK INTO R3 


SEQ 0133 
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READ DEC144 FILE 


9 34 01 602 MOV (SP)+,R ::POP STACK INTO R2 
50 01 $ MOV (SP) +R +:POP STACK INTO R1 
108 03025 05 RTS R EXIT 
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TOR ROUTINE 


001150 
001442 


001340 
076302 


000146 
000374 
177777 
000004 


076506 


177777 
177777 
076544 
001340 
000001 
000114 
030650 


177777 
177777 


077262 
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ENTER BAD SEC 


-SBTTL ENTER BAD SECTOR ROUTINE 
athe TO ENTER BAD SECTOR INFORMATION MANUALLY 





SEQ 0135 


3DPB ADDRESS 
7 CALL ROUTINE 


[RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 


MANTER: 


1$: 


2s: 


3$: 
4$: 


5$: 
6$: 


7$: 


::PUSH R1 ON STACK 
33PUSH Re ON STACK 

“PUSH R3 ON STACK 
PUSH R4 ON STACK 
:RUNNING IN AUTO MODE ? 
SBRANCH IF SO 
SCHANGE DRIVE PARAMETERS ? 


2BR 
sCLEAR THE CONTROL-C FLAG 
sMESSAGE TO ENTER... 


s INDEX VALUE OF TABLE ADDRESS 
3TABLE STARTING ADDRESS 

3256. TOTAL BAD SECTORS ALLOWED 
ables IN THE TABLE ? 


BRANCH IF SO 
sADJUST THE TABLE ENTRY POINTER 
3DECREMENT THE BAD SECTOR COUNT 


@ ee 


3SAVE THE COUNTER AND FIRST 
sENTRY POINTER PAIR 

sRESET CYLINDER TO -1 

3RESET TRACK/SECTOR FIELD TO -1 
sTYPE ‘CYL,TRK,SEC = ° 
sREAD T DRESS 

sREAD IN TEXT ADDRESS 
sCONTROL-C ENTERED ? 

BRAN 


BRANCH IF Y 

zWAS IT gpERRINATED WITH CARRIAGE RETURN ? 
:WAs CHARACTER AN 'L* ? 

[TYPE BAD SECTOR LIST FOR USER 

;RETRIEVE THE ENTRY POINTER 

RETRIEVE THE COUNT 

:RESET THE TABLE 


sALL DONE ? 


*BRANCH IF NOT 
‘TYPE ° ® ALL CURRENT ENTRIES LOST *° 
SENTER AGAIN FROM THE FIRST POINTER 
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ENTER BAD SECTOR ROUTINE 
5 13 2% 001 422 MOV CYLIMT,R2 :UPPER LIMIT OF INPUT 
ef SR R5,CK.D1IG SCHECK THE DIGIT(S) 
2 18$ + CARRIAGE RETURN ONLY ENTERED 
9 s 188 [PERIOD ONLY ENTERED 
030624 17$ SILLEGAL INPUT 
0 9 6 8$ TERMINATED WITH A CARRIAGE RETURN 
03047 5 10$ TERMINATED WITH A ‘,'' 
030474 03050 9$ S TERMINATED WITH A '’."* 
54 0530476 010214 8$: MOV R2, (R4) [CYLINDER ADDRES 
5 030500 000444 BR $ [FINISH WITH THE CURRENT ADDRESS 
56 030502 010214 9$: MOV R2, (R4) [CYLINDER ADDRESS 
57 030504 52 BR TEXIT,PERIOD ENTERED 
38 030506 010214 10$: MOV R2, (R4) [CYLINDER ADDRESS FOLLOWED BY ‘,° 
60 030510 013 zo 001426 mov TRKLMT,R :UPPER LIMIT OF INPUT 
030514 004537 033072 JSR RS, CK. se [CHECK THE DIGIT(S) 
030520 rats 18$ : CARI AGE RETURN ONLY ENTERED 
030522 030632 18$ [PERIOD ONLY ENTERED 
030524 030624 17$ SILLEGAL I 
030526 0305 11$ * TERMINATED WITH A CARRIAGE RETURN 
030530 030550 13$ 3 TERMINATED WITH A ","' 
030532 030542 12$ TERMINATED WITH A é 
61 030534 110264 000003 11$:  MOVB R2,3(R4) :TRACK ADDRESS 
6¢ 030540 000424 BR 16$ RACK NUMBER FOLLOWED BY CR 
63 030542 110264 000003 12$:  MOVB  R2,3(R4) STRACK ADDRES 
64 030546 000431 BR 18$ 3EXIT, TRACK NUMBER FOLLOWED BY °.' 
65 030550 110264 000003 13$:  MOVB  R2,3(R4) STRACK ADDRESS FOLLOWED BY °,° 
67 030554 013702 001424 MOV SECLMT,R2 :UPPER LIMIT OF INPUT 
030560 537 033072 JSR R5,CK.DIG [CHECK THE DIGIT(S) 
030564 030632 18$ * CARRIAGE RETURN ONLY ENTERED 
30566 030632 18$ 3PERIOD ONLY ENTER 
030570 030624 17$ TILL T 
030572 030606 53 : TERMINATED WITH A CARRIAGE RETURN 
030574 030624 17 TERMINATED WITH A‘ 
030576 030600 143 S TERMINATED WITH A ‘’."* 
68 030600 110264 000002 14$:  MOVB  R2,2(R4) 3SECTOR ADDRESS 
69 030604 000412 BR 18$ EXIT SECTOR ADDRESS FOLLOWED BY °.° 
70 030606 110264 000002 15$:  MOVB  R2,2(R4) EE CTOR AD 
030612 005303 16$: DEC R3 :MORE ENTRYS ? 
030614 001406 BEG 18$ [BRANCH IF TED 
74 03061 062704 000004 ADD #4,R6 SADJUST FOR THE NEXT TABLE ENTRY 
ie 030622 000653 BR 4$ TENTER NEXT SECTOR ADDRESS 
77 030624 104401 076341 17$: ‘TYPE ENT :MESSAGE BAD ENTRY 
78 0306 0 BR é SENTER SECTOR ADDRESS AGAIN 
9 030632 000004 188: ADD #4,SP [CLEAR OFF THE STACK POINT 
030636 12604 MOV (SP)+,R4 ::POP STACK INTO R4 
030640 012603 MOV (SP)+-R 33POP STACK INTO R 
050642 1260 MOV (SP)+-R +:POP STACK INTO R 
030644 01 $0 MOV (SP)+:R ::POP STACK INTO R 
030646 07 RTS PC tEXIT 


-SBTTL TYPE BAD SECTOR LIST 


RAV= 


~ 


SESL SSLSSELRA |F 


3 
3 


wn 
m 
oO 
“+ 
Se 


SRLESRESLS SE 
S 
“I 


ooo 


Bees 
# 


oe 


~“ 


Ss 
Soy 


ee ee ce ee ee ce ee ce ee ed ae ee ce ed ce ee ced ed ed ed ed ed ed ed ed ed 
eb a ed td os ot ts 


0 

1 

& 

3 7 

; 30762 
$ iar 
Be 
31 oa778 
03100 
He 
sH 
$i 
3 $31004 
29 031026 
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060001 


[Sess 
=OoOn— 
=O 
- 
o 


gees 


_ 
awn 
- 


zg 


— to 
Bees 
SIN NOONNGA ES 


s8S3ss 


_ 
_ 
io 


ae 


Re 


—b ot 
g 
~ 


Rtg eset 


$=8 
Ww 
So 


077216 
000146 
177777 
033230 
032264 
000003 
C5276 


033230 
032264 


000002 


075276 
O33 30 
32264 


sROUTINE TO LIST BAD SECTORS ON THE TERMINAL IN DECIMAL NUMBERS 
ey IS: CYL,TRK,SEC 


TYLIST: 


1$: 


MOV 
JSR 


#DPB.RO 
PC,TYLIST 


R1,-(SP) 
eLSTHDR 
#SBDSEC.R1 


RO,R 
R1.=(SP) 
#-1,(R1) 


(R1),=(SP) 
PC,$SB2D 
PC SUPRSL 
3(R1), (SP) 
2$ 

COMMA 
PC, $SB2D 
PC, SUPRSL 
3$ 

(SP)+ 
=(SP) 
2(R1), (SP) 
4$ 

COMMA 
PC ,$SB2D 
PC, SUPRSL 


H 11 


3DPB ADDRESS 
sCALL ROUTINE 


*RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 


;;PUSH_R1 ON STACK 


*TYPE °DEC144 AND MANUAL 
"INDEX VALUE OF TABLE ADDRESS 
STABLE STARTING ADDRES 

[SAVE ADDRES 
+ TERMINAT 


[LEFT JUSTIFY 


*CONVERT NUMBER 
[LEFT JUSTIFY AND TYPE 


CLEAR 
ET 


H 
TRACK 
ALL 


sRESTORE STACK 


sCL 


[CONVERT NUMBER 
[LEFT JUSTIFY AND TYPE 


T SECT 


ob JAbL 


sRESTORE STACK 
;CR=L 


31 


sCONTROL-C ENTERED ? 


NCREMENT POINTER 


: CH I 
sANY ENTRIES ? 


:T 
3C 
¢ 


IF YES 
YPE °NO ENTRIES’ 
R-LF 


LEAR CONTROL FLAG 


POP STACK INTO R1 


SRE TURN 


BAD SECTOR LIST* 


S_FOR LATE 
i. ss NO ENTR 


sBRANCH IF YE 
3GET CYLINDER NUMBER 
CONVERT NUMBER 


R 
Y IN THE TABLE ? 


AND TYPE 
I BYTE AND PUSH STACK 
NUMBER 


EAR HI BYTE AND PUSH STACK 
OR NUMBER 


SEQ 0137 
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CZRNAAO_RM8O 
PARAMETER ENTRY ROUTINE 


4 
8 031030 BIO S88 
9 031032 30305 001340 
10 931078 012337 031046 
11 031042 001442 
is Ot aee 104401 
13 031046 
14 031029 ig 
15 0 25 1 
16 031054 011546 
17 031056 104405 
18 031060 104401 077572 
19 931008 soso ht 
1 b31070 rate 001340 
g 031074 80106) 
031076 34 7? 033072 
031102 031036 
031104 031150 
0311 Betis 
Oat 1138 
03111 Osi lee 
031114 0311 
4 031116 p106}2 
5 031120 000746 
ost 2 104401 076341 
0311 162703 000006 
8 0311 000741 
031134 010215 
Oats 04 
1 Beit 5037 001340 
031144 011603 
031146 000733 
Ostt29 B037e8 
5 031152 00020 


«SBTTL PARAMETER ENTRY ROUTINE 


PARAMETER ENTRY ROUTINE 
3CALL: 


MOV 
JSR 


BR 
TST 
RTS 


#ADR RS 
PC PARENT 


as 
(R3)* 38 
9$ 


2 SLASH 
(SP)+,R1 
FLAG 


RS,CK.DIG 


a 


eBADENT 
#6,R 


R2,(R5) 
9$ 


CFLAG 
(SP) ,R3 
1$ 


(SP)+ 
PC 


ea, 


SEQ 0138 


sPARAMETER TABLE ADDRESS 
3GET THE PARAMETERS 


3SAVE_THE PARAMETER TABLE ADDRESS 
sCLEAR THE Bt ey FLAG 


CURRENT ARAME TER 
ZTYPE THE CURRENT VALUE OF THE PARAMETER 


sREAD_THE KEYBOARD 

sINPUT ASCII STRING ADDRESS 
:*CONTROL C° ENTERED ? 

3BR_IF IT WAS 

sCHECK THE DIGIT(S) 

sCARRIAGE RETURN ONLY ENTERED 
ooetiee, “ate ENTERED 


1 
STERMINATED WITH A CARRIAGE RETURN 
STERMINATED WITH A “:,"" 

ZTERMINATED WITH A ‘*. 

SMOVE NEW VALUE TO PARAMETER LOCATION 
GET MORE PARAMETERS 

SDECREMENT THE TABLE POINTER 

STRY AGAIN 


sNEW_VALUE 


sEXIT 

CLEAR THE ‘CONTROL C° FLAG 

RELOAD THE PARAMETER TABLE ADDRESS 
TRY AGAIN 

sCORRECT THE STACK POINTER 

;RETURN 
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PARAMETER ENTRY ROUTINE 


—_ 
SoMmNOUewr— 
Cosco 
Rw 
WRN SSF 


“ 
o 


Coooooo 


Baas 
Ser 
oer 


Moron 
Mm 
nO 


nm nm tt a ed ed ad dt ad 
ooo oo 

Wins Ww 

—— 

SSK FNVSAENK 


So 
WWW al 
peat pat at at at pay 
SNNE 
$s &n 


Ww 
= 
So 


REALESSNEREAN 
Soooooo 


Seaseaae 
Sehnss 


11 
: SEQ 0139 


2 eal ASSIGN/DEASSIGN ERROR MESSAGE 


: MOV WMESADR,ASNMSG ;ERROR MESSAGE ADDRESS 
: JSR PC ,ASNERR 
: RETURN 
001 05 ASNERR: TYPE  ,$CRLF CRLF 
075272 TYPE ,QUES pel i 
075304 TYPE UNTMSG STYPE "DRIVE* 
V R4,-(SP) SAVE R4 FOR TYPEOUT 
t:TYPE DRIVE NUMBER 
TYPOS +:G0 TYPE--OCTAL ASCII 
.BYTE 2 S:TYPE 2 DIGIT(S) 
“BYTE 0 ::SUPPRESS LEADING ZEROS 
TYPE *TYPE SPECIFIC MESSAGE 
ASNMSG: . 0 ‘MESSAGE ADDRESS 
RTS PC 
:DEASSIGN DRIVE IF A FATAL ERROR OCCURS 
; JSR PC,DROP 
; RETURN 
DROP: CLR RG ZCLEAR R4 FOR DRIVE NUMBER 
MOVB = (RO) RG “MOVE DRIVE NUMBER TO R4 
040300 00154 BICB ATABIT(R4),ASNLST SREMOVE DRIVE FROM ASSIGNED LIST 
040300 03201 BICB ATABIT(R4)AUTLST “DELETE DRIVE FROM AUTO ASSIGN LIST 
ASL R4 ;MAKE DRIVE NUMBER INTO A TABLE INDEX 
001544 MOV RO.DDRVS(R4) § :PUT DRIVE IN DROP LIST 
001205 TYPE ,$CRLF_. 
075 00 TYPE § ,DROPNG :TYPE "FATAL OR EXCESSIVE ERRORS’ 
07575 TYPE § .MSGON STYPE ‘ON’ 
5304 TYPE UNTMSG [TYPE ‘DRIVE’ 
ASR RG :DRIV R 
MOV R4,-(SP) t:SAVE R4 FOR TYPEOUT 
sz TYPE DRIVE 
TYPOS 2:60 TYPE--OCTAL ASCII 
BYTE 2 S: TYPE 2 DIGIT(S 
“BYTE +:SUPPRESS LEADING ZEROS 
1$: RTS PC 
;ROUTINE TO DEASSIGN DRIVE If ERPORS BECOMES EXCESSIVE 
000020 147662 ABNRML: BIT #SW04 ,aSWR :SEE IF SWITCH 4 SET 
BNE sBP IF IT'S SET 
001456 000072 CMP MAXER, STOTAL (RO) *CHECK TOTAL ERROR VALUE 
BHI 1$ sBR IF ERRORS DO NOT EXCEED MAX 
031204 JMP DROP SDEASSING THE DRIVE 
1$: RTS PC RETURN 


ZROUTINE TO CHECK FOR END OF PASS AND END OF TEST 


am 
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END OF PASS ROUTINE TT 
1 .SBTTL END OF PASS ROUTINE 
FRRRAARRARRARERAEAREREEERERERERAERERAERERERERRRRERERRRRRERRRERES 
{RINCREMENT THE PASS NUMBER ($PASS) 
F THERES A MONITOR GO TO IT 
uF THERE 1eN" T JUMP TO RTURN 
031312 SEOP: 
031312 005737 001500 TST ENDING zEND OF PASS DETERMINED BY SEEKS OR DATA WORDS ? 
031316 001412 BEQ EOP1 *BR 
031320 026037 000040 001450 CMP SENDAT#2(RO),ENDCON+2 | ;CHECK MSW OF WORDS DATA COUNT 
031326 101020 BHI EOP2 :BR IF MSW GREATER THAN LIMIT 
031330 103404 BLO i$ “BR IF Msw LESS THAN LIMIT 
031332 026037 000036 001446 CMP SENDAT (RO) ,ENDCON CHECK LSW AGAINST LIMIT 
031340 103013 BHIS EOP2 :BR IF EQUAL OR GREATER 
031342 000207 1$: RTS PC 
031344 026037 000044 001454 EOP1: CMP SENDSK+2(RO),ENDSEK+2 CHECK MSW OF SEEK COUNT 
031352 101006 BHI EOP2 SBR IF MSW GREATER THAN LIMIT 
031354 103404 BLO 1$ ‘EXIT IF MSW LESS THAN LIMIT 
031356 026037 000042 001452 CMP SENDSK(RO) , ENDSEK :CHECK LSW OF SEEK COUNT 
031364 103001 BHIS _ EOP2 sBR IF EQUAL OR GREATER 
031366 000207 1$: RTS PC 
031370 010446 EOP2: MOV R4,-(SP) ZSAVE R46 
031372 032777 000400 147554 BIT #SU08,aSWR * INHIBIT END OF PASS TYPEOUT ? 
031400 001023 BNE 1$ 3BR IF YES 
031402 104401 001203 TYPE -SCRLE CR=LF 
031406 104401 075734 TYPE PAS SEND OF PASS FOR THE DRIVE 
031412 016046 000104 MOV seneeceRO). -(SP)" VE $PASSC(RO) FOR TYPEOUT 
031416 104405 TYPDS 3:60 rveb==DeCimAL ASCII WITH SIGN 
031420 111037 001324 MOVB (RO) ,DRVNO STORE | THE DRIVE NUMBER 
031424 104401 075753 TYPE § ,MSGON 3TY PE ° 
031430 104401 075304 TYPE § [UNTMSG "DRIV 
031434 013746 001324 MOV DRVNO,-(SP) iz SAVE DRYNO FOR TYPEOUT 
031440 104403 TYPOS 360 TYPE=-OCTAL ASCII 
031442 002 .BYTE 2 SITYPE 2 DIGIT(S) 
031443 000 “BYTE 0 +:SUPPRESS LEADING ZEROS 
031444 104401 001203 TYPE ,S$CRLF + CRLF 
031450 111004 1$: MOVB = (RO) .R4 ‘MOVE DRIVE NUMBER 
031452 105737 001150 TSTB $AUTOB :RUNNING IN AUTO MODE ? 
031456 001410 BEQ 2$ “BR 
031460 136437 040300 032012 Bite ATABIT(R4) ,AUTLST - ids DRIVE ALREADY ASSIGNED TO AUTO LIST ? 
031470 156437 040300 032012 BISB ATABIT(R4),AUTLST sADD DRIVE TO AUTO ASSIGN LIST 
031476 000443 BR 3$ 
031500 026037 000104 001470 2$: CMP ASSC (RO) , PASSES :SEE IF AT END OF TEST 
031506 103437 BLO 3 IF NOT 
031510 030777 000020 147436 BIT #SW0s, ,a@SuR i TYPE END OF TEST MESSAGE ? 
031520 104401 075760 TYPE ENDTST i TYPE vEND OF TEST 
031526 104401 075776 TYPE § [MSGFOR STYPE *FOR" 
031530 104401 075304 TYPE UNTMSG "DRIV 
031524 015746 001324 MOV BRVNO, -(SP) t;SAVE DRVNO FOR TYPEOUT 
031540 10440 TYPOS 33:60 TYPE--OCTAL ASCII 
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END OF PASS ROUTINE TT 
03154 00 BYTE zTYPE 2 DIGIT(S) 
03154 BYTE :sSUPPRESS LEADING ZERO 
031544 146437 040300 001542 B1CB ATABIT(R4) ,ASNLST “DELETE DRIVE PROM ASSIGNED LIST 
031552 006304 ASL RG DRIVE NUMBER INTO TABLE INDEX 
031554 01 1544 MOV RO,DDRVS(R4) § PUT BLOCK ADDRESS INTO DROP LIST 
031560 105737 001542 TSTB = ASNLST ZALL DRIVES ARE DEASSIGNED ? 
031564 001041 BNE 7$ NO 
031566 005237 001216 INC SDEVCT ‘INCREMENT DEVICE COUNT 
03157 st 4 14 001214 INC $PASS sINCR EMENT THE PASS COUNT 
031576 042737 100000 001214 BIC #100000,$PASS :AVOID NEGATIVE NUMBER 
031 0004 BR 7$ 
031606 032777 000400 147340 3$: BIT #SW08,aSwR : INHIBIT END OF PASS TYPEOUT ? 
031614 001002 BNE 4$ *BR IF YES 
031616 004737 023714 JSR PC, SUMARY ;TYPE THE DRIVE'S STATISTICS SUMMARY 
031622 010346 4$: MOV R3,-(SP) 
031624 010004 MOV RO,R4G :DRIVE! $ BLOCK ADDRESS 
031626 062704 000036 ADD #SENDAT ,R4 *ADD T HE STARTING ADDR OF SECTIONS TO CLEAR 
031632 012703 000006 MOV #6,R3 ‘NUMBER OF LOCNS TO BE CLEAR 
: (CLEAR SENDAT. SENDSK AND SOPERC COUNTERS) 

031636 005024 5$: CLR (R4)+ SCLEAR THE L 
031640 005303 DEC R3 * DECREMENT THE LOCATION COUNTER 
031642 001375 BNE 5$ ‘BR IF MORE TO GO 
031644 012603 MOV (SP)+,R3 *RESTOR E RS 
031646 005260 000104 INC $PASSC (RO) * INCREMENT THE PASS COUNT 
031652 105737 001150 6$: TSTB SAUTOB ;RUNNING IN AUTO MODE ? 
031656 001404 BEQ BR IF 
031660 023737 001542 032012 CMP ASNLST,AUTLST :HAVE ALL DRIVES COMPLETED PASS IN AUTO MOLE ? 

1666 001402 BEQ $ : Y 
031670 012604 7$: MOV (SP)+,R4 SRESTORE R4 
031672 000207 RTS PC ZRETURN 
031674 005237 032012 8$: INC AUTLST :CLEAR AUTO ASSIGN LIST FOR NEXT PASS AND 
031700 001375 BNE ‘WAIT FOR TTY 
031702 012737 000000 177776 MOV #PRO,PS TALLOW INTERRUPTS 
031710 005237 001216 INC SDEVCT * INCREMENT DEVICE COUNT 
031714 005237 001214 INC SPASS sz INCREMENT THE PASS NUMBER 
031720 042737 100000 001214 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
031726 005327 DEC (PC)+ LOOP? 

1730 000001 SEOPCT: .WORD 
031732 003013 BGT $DOAGN z7 YES 
031734 012737 MOV (PC)+,a(PC)+ : RESTORE COUNTER 
031736 990001 SENDCT: .WORD 1 
031740 031730 $EOPCT 
031742 013700 000042 $GET42: MOV a#42,R0 33GET MONITOR ADDRESS 
031746 001405 BEQ DOAGN : BRANCH IF NO MONITOR 
031750 000005 RESET ::CLEAR THE WORLD 
031752 004710 SENDAD: JSR PC, (RO) 2:60 TO 
031754 000240 NOP 7: SAVE RO 
031756 000240 NOP FOR 
031760 000240 NOP S:ACT11 
031762 SDOAGN: 
031762 000137 JMP a(PC)+ 7 RETURN 
031764 031766 SRTNAD: .WORD RTURN 


§ 031766 012706 001100 RTURN: MOV #STACK,SP sRESTORE STACK — 
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END OF PASS ROUTINE 


4 
5 
$8 
9 


031 77 8 
035006 


032012 


Bre | 
000137 


000000 


3582 


AUTLST: 


» WORD 


STEST 


N 
PC, $TKINT 


PC, CKCLK 
MAIN 


0 





s INCREMENT THE TEST NUMBER IN pa MAIL BOX 
MAKE SURE KEYBOARD Age UPT 

;SYSTEM CLOCK ARE STILL ON. 

;RETURN TO LOOP 


sAUTO ASSIGN LIST (USED IN AUTO RUN MODE) 


SEQ 0142 


aed a Ded ot wh a 


ronefenvronor 
N Swn— 


SSBVEG 


os 
af 
NO 


$ 
= 


SsSssssls 
Sekeskuses 


0371 33 
037122 


032040 


000026 


000030 
000032 


032106 
000030 
000032 
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END OF PASS ROUTINE 


1 
3 
4 
5 
6 
4 
8 
9 
0 
1 
3 9 
4 
5 
6 
7 
8 
9 
20 


i ROUTINE TO GET THE REMAINDER OF THE RANDOM NUMBER 
MOV NUMBER ,R5 :DIVISOR INTO RS 
JSR PC, GETREM 
RETURN ;REMAINDER IS IN RS 
GETREM: MOV SLONUM,-(SP)  ; STORE RANDOM NUMBER ON THE STACK FOR DIVIDE 


MOV SHINUM.-(SP) |: UPP 
P) ‘PUT THE PIVISOR ONTO THE STACK 
HE NUMBERS 


JSR PC. SDIV :DIVID E THE RAND 
MOV (SP)+,R5 PUT THE REMAINDER INTO R5 
TSI (SP)+ ADJUST THE STACK POINTER 


-SBTTL INTEGER DIVIDE ROUTINE 


LRRRRRRRRRERRARRERARAERERERRRAAEERERAARAARERERAAARAREREAA AAR 

:ATHIS ROUTINE WILL DIVIDE A 32-BIT TWO'S COMPLEMENT INTEGER 

i #DIVIDEND BY A, 16-BIT TWO'S COMPLEMENT PH gl biviTe GIVING 
6-BIT TWO'S COMPLEMENT INTEGER QUOTIENT AN 16-BIT_REMAINDER. 

S SDIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE 


: SANE SIGN AS THE DIVIDEND. 

oe LOW DIVIDEND,-(SP) z:THE HIGH DIVIDEND MUST BE < 1/2 

ie MOV HIGH DIVIDEND, =(SP) StAS LARGE AS THE DIVISOR 

: MOV DIVISOR,=(SP) 

7* JSR PC,SDIV. 

i RETURN S;QUOTIENT & REMAINDER ARE ON THE STACK 
i STACK NO ERROR OVERFLOW DIVIDE BY ZERO 

7* TOP REMAINDER ALL ZEROS ALL ONES 

:* +2 QUOTIENT ALL ZEROS ALL ONES 


3* 
3*NOTE: THIS ROUTINE WILL LINK TO THE DIVISION SUBROUTINE (°M.DPID*). 


$DIV: SAVREG sSTORE RO = RS 
MOV tale RS 
CLR SOTHER DIVISOR WORD 
MOV 3018p). R2 UPPER DIVIDEND — 
MOV al RS ZLOWER DIVIDEND WOR 
cre 7 sCLEAR OTHER DIVIDEND REGISTERS 
JSR PC.M.DPID 3G0 TO THE DIVIDE ROUTINE 
MOV R1,30(SP) ZREMAINDER ON THE STACK 
MOV R3,32(SP) QUOTIENT ON THE STACK 
RESREG sRESTORE RO - R 
MOV (SP)+, (SP) sMOVE RETURN UP THE STACK 
RTS PC 

-SBTTL DOUBLE PRECISION DIVISION SUBROUTINE 


. =, ae PC,M.DPID 


p12 . 
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DOUBLE PRECISION DIVISION SUBROUTINE E 
58 : DIVIDEND = RO-R1-R2-R3_ (RO=MSD) 
3 ; DIVISOR = R4-R5 (R4=MSD) 
61 RETURN 
8 : REMAINDER AFTER DIVISION = RO-R1 (RO=MSD) 
6 ; QUOTIENT AFTER DIVISION = R2-R3 (R2=MSD) 
x4 032106 012746 000040 M.DPID: MOV #40,-(SP) :COUNTER FOR DIVISION CYCLES 
67 032112 010446 MOV »=(SP) HIGH ORDER 
68 032114 010546 MOV R5,-(SP) [LOW ORDER DIVISOR TO THE STACK 
69 0532116 5466 000002 NEG 2(§P) FORM N 
70 032122 005416 NEG asP [VERSION OF THE DIVISOR 
71 032124 005666 000002 SBC 2(SP) 
72 032130 061601 ADD asP,R1 
73 032132 005500 ADC RO sPERFORM THE INITIAL SUBTRACTION 
74 032134 066600 000002 ADD 2(SP) RO 
75 032140 103445 BCS M.DP50 IF CARRY THEN OVERFLOW HAS OCCURRED 
76 032142 005046 CLR -(SP) ‘THIS IS A LONGER LASTING CARRY BIT 
77 032144 006103 M.DP40: ROL R3 
78 032146 006102 ROL R2 
032150 006101 ROL R1 
80 032152 006100 ROL RO hs fe 
81 032154 005716 TST asP ;TEST "CARRY" INDICATOR 
82 032156 001410 BEQ M.DP41 *IF NO CARRY’ THEN ADD ELSE SUBTRACT 
83 032160 005016 CLR asP [CLEAR UP FOR NEXT TIME 
84 032162 066601 000002 ADD 2(SP) ,R1 
85 032166 005500 ADC RO 3ADD ~(DIVISOR) 
86 032170 005516 ADC asP : 1 ESET CARRY’ 
87 032172 066600 000004 ADD 4(SP) ,RO:<= 
88 032176 000404 BR M.DP42 
89 032200 060501 M.DP41: ADD R5,R1 
90 032202 005500 ADC RO ZADD +(DIVISOR) 
91 032704 005516 ADC asP : I ESET CARRY’ 
92 032206 060400 ADD R4,RO <= % 
93 032210 005516 M.DP42: ADC asP :SET CARRY’ 
94 032212 005716 TST asP TEST THE UPDATE INDICATOR 
95 032214 001401 BEQ +6 => SIF ZERO FORGET IT 
% 032216 005203 INC R3 + 1 NO CARRY POSSIBLE HERE 
97 032220 005366 000006 DEC 6(SP) <= :DECREMENT COUNTER 
98 032224 003347 BGT M.DP40 “BRANCH IF MORE TO DO 
99 032226 006003 ROR 
100 032230 103404 BCS M.DP44 
101 032232 060501 ADD 5, 
102 032234 005500 ADC 
103 032236 00 ADD R4,RO 
104 032240 000241 CLC 
105 O52 42 006103 M.DP44: ROL R3 
106 33244 0627 000010 ADD #10,SP sADJUST STACK BY 4 WORDS 
10 03 50 24 CLV 
108 032252 90020 RTS PC 
109 0 354 2 000006 M.DP50: ADD 4#6,SP 
110 032260 00026 SEV 
111 032262 00020 RTS PC 
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SUPRS = TYPE ASCIZ, REPLACE LEADING 0°S WITH BLANKS 


1 .SBTTL SUPRS = TYPE ASC1Z, REPLACE LEADING 0'S WITH BLANKS 
é "SBTTL SUPRSL -TYPE ASCIZ, LEFT JUSTIFY 
4 FERRARA AERAARERERAEERAREERERAAEEERRRREREREERERERRERERRARERRREREER 
5 CALL: 
§ ; #NUMADR,=(SP) ;FIRST ADDRESS OF ASCIZ STRING 
i = JSR PC, SUPRS 
9 : MOV WNUMADR,-(SP) ;FIRST ADDRESS OF ASCIZ STRING 
10 ; JSR PC, SUPRSL 
12 032264 61004 SUPRSL: MOV RO,=(SP) :SAVE RO 
13 032266 0166 909004 MOV 4(SP) ,RO *GET POINTER TO MESSAGE 
14 032272 005037 032354 CLR SUPR2 
3 032276 000405 BR SUPR1 
17 032300 010046 SUPRS: MOV RO,-(SP) sSAVE RO 
18 032302 016600 000004 MOV 4(SP) ,RO ‘GET POINTER TO MESSAGE 
19 03 010037 032354 MOV RO, SUPR2 *GET POINTER FOR TYPING 
20 03231 SUPR1: 
31 032312 105710 1$: TSTB = (ROD sTEST FOR TERMINATOR 
g 032514 901406 BEQ : 
3 032316 122710 000060 C #°0, (RO) [1S THIS A '0'' ? 
% 032322 001006 BNE $ NO 
25 032324 112720 000040 MOVB  #40,(RO)+ SREPLACE IT WITH A "BLANK" 
26 032330 000770 BR 1$ *NEXT CHAR. 
27 032332 005300 2$: DEC RO *BACKUP 1 
28 032334 112710 000060 MOVB #0, (RO) [MAKE IT "'0"° 
032340 005737 032354 3$: TST SUPR2 SLEFT JUSTIFY ? 
032544 901002 BNE 4$ NO 
10 359 010037 032354 MOV RO, SUPR2 YES 
032352 104401 4$: TYPE 
73 032354 900000 SUPR2: .WORD 0 
3% 032356 0126 MOV (SP)+,RO :RESTORE RO 
35 032360 012616 MOV (SP) +, (SP) SRESTORE STACK 
36 032362 000207 RTS PC 
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XE 
SSUPRS RPE ASCII. REPLACE LEADING 0'S WITH BLANK 


1 .SBTTL $SUPRS = TYPE ASCIZ, REPLACE LEADING 0'S WITH BLANKS 

: *SBTTL $SUPRL = TYPE ASCIZ. LEFT JUSTIFY 

¢ {RRRAAAAARAAARAAAAARRAEEAERAARARERARRERERERRERRERRARRERERERREREE 
6 THIS ROUTINE IS SAME AS ‘SUPRSL" AND se EXCEPT THAT IT 

[WILL SUPPRESS THE ERROR TYPEOUT IF Sw13=1, THIS ACCOMPLISHED BY 

g ZUSED TRAP CALL ‘DISPLY', INSTEAD OF ‘TYPE 

10 ; MOV WNUMADR,-(SP) FIRST ADDRESS OF ASCIZ STRING 
1 De JSR PC, $SUPRS 

ig : MOV WNUMADR,<(SP) ;FIRST ADDRESS OF ASCIZ STRING 
14 ; JSR PC, $SUPRL 

af 032364 910046 SSUPRL: MOV RO,=(SP) :SAVE RO 

17 032366 01 MOV 4(SP) ,RO “GET POINTER TO MESSAGE 

18 032372 00503 ert CLR SSUPR? 

19 032376 0 BR $SUPR1 
31 032400 010046 SSUPRS: MOV RO,=(SP) ZSAVE RO 

032402 0166 909004 MOV 4 (SP) ,RO *GET POINTER TO MESSAGE 

@3 03 ane 010037 032454 vos MOV RO, $SUPR2 *GET POINTER FOR TYPING 
33 O24 1¢ 105710 i$: STB RO) TEST FOR TERMINATOR 

2 032416 123710 000060 cr P #0.(RO) SIS THIS A "0" ? 

0524 4 112720 000040 MOVE ts (RO)+ REPLACE IT WITH A ‘BLANK"' 

1 032432 005300 2s: DEC! SBACKUP 1 

3 032454 112710 000060 MOVB Ro (RO) TMAKE IT "0" 

33 03 440 00573 032454 3$: IST SSUPR2 inst! JUSTIFY ? 

bf} O3s4eg htt 032454 MOV RO, $SUPR2 YES 

36 o32084 104414 ats DISPLY : ‘TYPE, UNLESS SW13=1 

38 032 612600 af * MOV (SP)+,RO RESTORE RO 

9 0334 é 01 616 MOV (SP) +; (SP) RESTORE STACK 

40 032462 00020 PC 
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S$SUPRL = TYPE ASCIZ, LEFT JUSTIFY 


1 : ROUTINE TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES 

$ ; #ADR (SP) sADDRESS OF NUMBER (IN ASCII) 

4 ; JSR ,»REPLZ :REPLACE PRECEDING ZEROS WITH BLANKS 
2 r «WORD Ye "I$ NUMBER OF DIGITS ") "Se TYPED 
7 : MOV PADR =(SP). ZADDRESS OF NUMBER (IN ASCII) 

8 ; JSR FILLZ iTVRE PRECEDING ZEROS 

- WORD ae "1S NUMBER OF DIGITS TO BE TYPED 
i 032464 005237 032572 FILLZ: INC FILLO gue ZERO'S 

ig 032470 010046 REPLZ: MOV RO,-(SP) : RO 

14 032472 01 900004 MOV 4(SP) ,RO SADDRESS OF NUMBER TO RO 

15 032676 005737 032572 TST FILLO’ SLEAVE PRECEDING ZEROS ? 

16 032502 001014 BNE <BR IF YES 

17 032504 122710 000060 1$: CMPBs«#0, (RO) *BYTE EQUAL TO ASCII ‘0° ? 

18 032510 901004 ENE BR IF 

19 032512 112710 000040 MOVE —-« #40, (RO) SREPLACE THE ZERO WITH A SPACE 

20 032516 005200 INC RO S INCREMENT THE BYTE ADDRESS 

21 032520 000771 BR 1$ +60 BACK AND LOOK FOR MORE LEADING ZEROS 
2 0329 2 105710 2$: TSTB = (RO) *SEE IF ZERO BYTE TERMINATOR 

23 032524 001003 BNE 3$ [BR IF NOT 

3 032526 005300 DEC RO *BACKUP STRING POINTER 

5 032530 112710 000060 move «#0, (RO ‘PUT A ZER K IN 

36 052554 016600 000004 3$: MOV 4(SP) ,RO *PUT ADDRESS OF FIRST CHARACTER ON STACK 

032540 105720 4$: TSTB = <RO) + 3SEE IF ZERO BYTE TERMINATOR 

28 032542 001376 BNE 4$ F NOT 

29 032544 005300 DEC RO SBACKUP STRING POINTER 

30 032546 162500 SUB (R5)+,RO TADJUST 

1 032550 010037 032556 MOV RO,5$ [GET ADDRESS FOR TYPEOUT 

EY 032554 104401 TYPE ‘TYPE THE NUMBER 

33 032556 000000 5$: .WORD 0 SADDRESS OF NUMBER 

34 032560 012600 MOV (SP)+,RO ::POP STACK INTO RO 

5 032562 01261 MOV (SP)+, (SP) sRESTORE STACK 

36 032564 005037 032572 CLR FILLO SRESET FILL FLAG 

7 032570 000205 RTS R5 RETURN 

39 032572 000000 FILLO: .WORD 0 zIF SET, LEAVE PRECEDING ZEROS FOR TYPE 
41 sROUTINE TO TYPE AT PRIORITY 4 
43 032574 013746 177776 TYPRI4: MOV aaPS.-(SP) - SAVE THE PRESENT STATUS 

44 032600 0127 aE 177776 MOV #200. a#PS [CHANGE THE PRIORITY TO 4 

45 032606 012537 032616 MOV (R5)4+,1$ *MESSAGE ADDRESS 

46 032612 004737 035550 JSR ee STiPE STYPE THE MESSAGE 

47 032616 000000 1$: .WORD 0 3MESSAGE ADDRESS GOES HERE 

48 032620 000205 RTS RS RETURN 

30 ;ROUT INE TO TYPE THE DRIVE (MBA) SERIAL NUMBER IN DECIMAL 

4 ; MOV #DPB,RO ZADDRESS OF DRIVE PARAMETER BLOCK 

2 3 7 JSR PC, TYDRV [CALL ROUTINE 

85 3 MOV #DPB,RO ZADDRESS OF DRIVE PARAMETER BLOCK 
26 : JSR PC, TYPDRV *CALL ROUTINE (WITH NO HEADER MESSAGE) 
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SSUPRL = TYPE ASCIZ, LEFT JUSTIFY 


8 ;RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
60 032622 104401 07733 TYDRV: TYPE DRVSN sTYPE "DRV S/N:° 
61 0 9100 7 03264 TYPDRV: MOV RO, 1$ TADDRESS OF DPB 
6¢ 05 6 2737 002130 032642 ADD #SDRVSN, 18 : INDEX X TO DRIVE (MBA) SERIAL NUMBER 
640 104401 TYPE TYPE THE DRIVE (MBA) SERIAL NUMBE 
64 032642 000000 1$: .WORD 0 TADDR ESS OF DRIVE (MBA) SERIAL NUPBER FIELD 
65 032644 104401 076141 TYPE PERIOD [TYPE ° 
66 032650 000207 RTS Pc [RETURN 
68 i ROUTINE TO TYPE THE HDA SERIAL NUMBER IN DECIMAL 
70 3 MOV #DPB,RO ZADDRESS OF DRIVE PARAMETER BLOCK 
a 3 JSR PC, TYHDA *CALL ROUTINE 
73 ; MOV #DPB,RO sADDRESS OF DRIVE PARAMETER BLOCK 
ie 3 JSR PC, TYPHDA *CALL ROUTINE (WITH NO HEADER MESSAGE) 
26 ‘RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
78 032652 104401 077320 TYHDA: TYPE HDASN :TYPE "HDA S/N: 
79 032656 005760 000144 TYPHDA: TST $HSNM(RO) 31S SERIAL SOPGER VALID ? 
80 032662 100003 BPL 1$ ‘YES TYPE IT, ELSE 
81 032664 104401 076334 TYPE NONE 
8¢ 032670 000207 RTS PC yRETURN 
032672 010046 1$: MOV RO,-(SP) [DPB ADDRESS 
84 052674 062716 900142 ADD #SHSNL, (SP) ADDRESS OF LOW 
85 032700 004737 03722 JSR PC, $DB2D : CONVERT TO DOUBLE DECIMAL 
86 032704 004737 032264 JSR PC. SUPRSL AND TYPE IT LEFT JUSTIFIED 
87 032710 104401 076141 TYPE PERIOD :TYPE ° 
88 032714 000207 RTS Pc [RETURN 
90 ;ROUTINE TO TYPE ERRORS 
91 CALL: 
% : DISPLY sMUST DEFINED IN 'TRAP* TABLE 
9 : MESADR TADDRESS OF MESSAGE 
3 : RETURN 
% 032716 032777 020000 146230 SDSPLY: BIT #81713, aSwR y INHIBIT ERROR TYPEOUT ? 
97 032724 001004 BNE 1$ 7BR IF YES 
98 032726 005037 177776 CLR aePs *SET PRIORITY TO ZERO 
99 032732 000137 035550 JMP $TYPE TYPE T SSAGE 
100 032 062716 000002 1S: ADD #2, (SP) TINCREMENT THE RETURN 
101 032742 00000 RTI RETURN 
198 ;THIS ROUTINE IS USED TO CHECK IF _AN 
104 ASCII CHARACTER IS A DIGIT BETWEEN O AND 7. 
106 : mov #ADR,RI ADDRESS OF ASCII CHARACTER 
10 : JSR R5,CK.OCT SCHECK THE CHARACT 
108 : RETURN *CHARACTER IS NOT BETWEEN 0-7 
109 : RETURN2 SCHARACTER IS IN R2 AS A 
110 : SOCTAL DIGIT 
11¢ 032744 121127 000060 CK.OCT: CMPB = (R1),#°0 :LESS THAN ZERO? 
113 032750 103407 L SYES <= BRANCH 
114 032752 121127 000067 CMPB sé), #"7 [GREATER THAN SEVEN? 


en 
~ 
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RNAAO RM8O PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 39-2 SEQ 0149 
SUPRL = TYPE ASCIZ, LEFT JUSTIFY 

115 032756 101 BHI 1$ ZYES <= BRANCH 

11 760 1111 MOVB CRI) RE [GET THE CHARACTER 

1 7 O4e7 177770 BIC #°C7~R tSTRIP AWAY THE ASCII 

118 0327 223 TST (R5)+ SADJUST FOR RETURN 

119 032770 1$: RTS RS RETURN 

13 sTHIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 

i g << Alaa IF IT IS A DIGIT BETWEEN 0 AND 9. 

124 3 MOV ADR,R1 ADDRESS OF ASCII CHARACTER 

125 ; JSR aS Ck.DEC :CHECK THE CHARACTER 

1 6 3 RETURN [NOT BETWEEN 0 AND 

1 : RETURN2 ;BETWEEN AND 9 

128 tR2 = DIGIT 

130 032772 121127 000060 CK.DEC: CMPB = (R1),#°0 sLESS THAN ZERO? 

131 032776 103407 BLO 1$ YES << 

1 é 03 121127 000071 CMPB ss (R11) ,#°9 [GREATER THAN NINE? 

133 033004 101004 BHI TYES == BRANCH 

134 03 11110 MOVE (1) ,R2 *GET THE CHARACTER 

135 033010 042702 000060 BIC #°0,R2 [STRIP AWAY THE ASCII 

136 033014 00572 TST 55s SADJUST FOR RETURN 

137 033016 000205 1$: RTS RETURN 

139 THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 

140 :DETERMINE WHA T IT IS. 

142 Vv #ADR,R1 ZADDRESS OF ASCII CHARACTER 

14 R5,CK.CHR *CHECK CHARACTER 

144 : RETURN ADR : CHARACTER 

145 : RETURN ADR ZCARRIAGE RETURN * (R1)=ADR+1 

146 : RETURN ADR ; * (R1)=ADR+1 

147 : RETURN ADR4 [PERIOD * (R1)=ADR+1 

148 : RETURN ADRS ‘DIGIT BETWEEN 0 AND 7. 

149 : RETURN ADR6 :DIGIT BETWEEN 8 AND 9. 

130 : tR2 = DIGIT * (R1)=ADR+1 

13¢ 033020 105711 CK.CHR: TSTB (R11) "CARRIAGE RETURN'’? 

153 033022 001417 BEQ TYES == BRANCH 

154 033024 121127 000054 CMPBs«(R1),#", :"'COMMA''? 

155 033030 001413 BEQ 2$ ZYES == BRANCH 

136 033032 121127 000056 CMPBs«(R1),#". :" PERIOD’? 

157 033036 1407 BEQ YES == BRANCH e 

138 03 0 004537 032772 JSR R5,CK.DEC ' DIGIT’? | 

159 0 900419 BR [NO == BRANCH 

160 033046 004537 032744 JSR R5,CK.OCT SOCTAL ? 

161 05 5 0057 5 TST (R5)4 ‘DIGIT BETWEEN 8-9 

l6e 33054 005725 TST (R5)+ *DIGIT BETWEEN 0-7 

16, 0330 0057 5 1$: TST (R5)¢ PERIOD 

164 03 5725 es: TST (R5)+ > COMMA 

165 05 5725 $: TST (R5)+ 3 CARRI AGE RETURN 

166 033064 005201 INC R1 MOVE POINTER TO NEXT CHARACTER 

167 03 11505 4$: MOV (RS) RS ‘UNKNOWN CHARACTER 

168 033070 000205 RTS R5 :RETURN 

170 :THIS ROUTINE CHECKS aN ASCII STRING FOR LEGAL 

171 SCHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN R2. 


an 
~ 
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RNAAO RM8O PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 39-3 SEQ 0150 (2 
SUPRL = TYPE ASCIZ, LEFT JUSTIFY BI 
\7¢ CALL: 
17 : MOV #ADR,RI ZADDRESS OF ASCIZ STRING 
17% : MOV #NUM,R2 [MAX. MAGNITUDE OF INPUT NUMBER 
175 : JSR R5 ck.D1G SCHECK DIGITS 
176 ; RETURN ADR 3"CR™ ONLY ENTERED =~ R2=0 
177 : RETURN ADR :PERIOD ONLY ENTERED <-- R2=0 
178 : RETURN ADR ZILLEGAL CHARACTER OR INPUT TOO LARGE =~ R2=? 
179 : RETURN ADR4 3'CR' == R2 = NUMBER 
180 : RETURN ADRS :*COMMA’’ == R2_= NUMBER 
181 : RETURN ADR6 :PERIOD’' == R2 = NUMBER 
188 033072 010446 CK.DIG: MOV R4,~(SP) ZSAVE R4 
184 033074 010346 MOV R3.-(SP) TSAVE R3 
185 033076 010246 MOV R2,°(SP) SSAVE THE MAX. SIZE ON THE STACK 
186 033100 903002 CLR R SSTART WITH 0 
187 033102 00500 CLR R 
188 033104 005004 CLR RS 
189 03 106 004537 033020 JSR R5,CK.CHR :CHECK ONE CHARACTER 
033112 033206 é$ SILLEGAL CHARACTER 
033114 033214 9$ [CARRIAGE RETURN 
33116 03 206 6$ whe 
033120 033210 7$ a 
033122 033126 1$ :DIGIT 0-7 
033124 033126 1$ :DIGIT 8-9 
190 033126 062705 000004 1$: ADD #4,R5 [STEP RETURN POINTER PAST "'CR'’ & PERIOD’ RETURNS 
191 033132 006303 23: ASL R3 INPUT NUMBER *2 
198 033134 010346 MOV R3_~(SP) SAV 
193 033136 006303 ASL R 784 
194 033140 006303 ASL R3 798 
195 033142 062603 ADD (SP)+,R3 + (#2)4(*#8) = #10 
196 033144 203 ADD R2.R [UPDATE THE INPUT NUMBER 
197 033146 537 033020 JSR R5.CK.CHR *CHECK ONE CHARACTER 
033152 033212 8$ SILLEGAL CHARACTER 
033154 033176 5$ CARRIAGE RETURN 
03315 033174 43 , 
033160 0 166 3$ oe 
033162 0331 28 *DIGIT 0-7 
033164 033132 $ DIGIT 8-9 os 
198 033166 105711 3$: TSTB = (R11) [DOES A CR’ FOLLOW THE ‘PERIOD 
199 033170 001019 BNE as [BR IF NOT 
200 033172 005724 TST (R4)+ SINCREMENT THE RETURN 
201 033174 005724 4$: TST (R4)+ S INCREMENT THE RETURN 
208 05 176 005724 5$: TST (R4)+ SINCREMENT THE RETURN 
9 020316 cep R3, (SP) *CHECK THE MAGNITUDE OF THE NUMBER 
3 101004 BHI 9$ ‘BR IF ENTERED NUMBER TOO LARGE 
5 03 900402 BR 8$ SBYPASS INCREMENT 
206 3 57 6%: TST (R5)+ S INCREMENT RETURN PAST INVALID RETURN 
207 03321 5725 7$: TST (R5)+ + INCREMENT fet - 
208 03321 5 8$: ADD R4,RS SSETUP RETURN POINTER 
33014 10302 9$: MOV R3.R2 SENTER UE 
10 03321 3726 TST (SP)¢ *CLEAN MAX. SIZE OFF OF STACK 
11 033 1 MOV (SP)+,R3 REST 3 
1 33 12604 MOV (SP)+.R4 *RESTORE R4 
1 4 011305 MOV (R5) RS [GET RETURN ADDRESS 
1 033226 205 RTS RS RETURN 
16 :THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
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SSUPRL = TYPE ASCIZ, LEFT JUSTIFY 


eg DECIMAL ASCIZ NUMBER. 
=(SP) 3PUT THE NUMBER ON THE STACK 


MOV 
; JSR Pe e6630 CALL: 
3 RETURN SADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 


reronn 


17 
18 
19 
20 
21 
$58 ;NOTE: THE PROGRAM REQUIRES THIS FORM OF '$SB2D', NOT THE VERSION ON 
34 THE SYSMAC LIBRARY, REV C AND LATER 
$0 3 016637 033254 $SB2D: MOV 2(SP),1$ :SAVE THE BINARY NUMBER 
0 01 46 MOV #1$,-(SP) [SET THE POINTER 
03324 737 «037 : JSR PC $082 [CALL THE DOUBLE LENGTH CONVERT 
0 46 12666 V (SP)+,2(SP) :PICKUP THE POINTER 
30 03305 00020 RTS RETURN 
31 033254 000000 000000 1$: .WORD 0,0 
238 ;THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
334 UNSIGNED OCTAL ASCIZ NUMBER. 
® 3 mov NUMBER = (SP) :PUT THE NUMBER ON THE STACK 
38 RETURN SADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 
240 NOTE: THE PRUGRAM REQUIRES THIS FORM OF '$SB20", NOT THE VERSION ON 
34] : THE SYSMAC LIBRARY, REV C AND LATER 
$08 033260 016637 900002 033304 $SB829: MOV 2(SP),18 :SAVE THE BINARY NUMBER 
244 033266 012746 033304 MOV is -(SP) [SET THE POINTE 
245 033272 004737 037416 JSR C,$DB20 [CALL THE DOUBLE LENGTH CONVERT 
246 033276 012666 000002 MOV (SB) e S<SP) ‘PICKUP THE POINTER 
247 033302 000207 RTS C [RETURN 


P 
33304 000000 000000 1$: -WORD 0,0 


aon 
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CZRNAAO RM8O0 PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 40 SEQ 0152 
TTY INPUT ROUTINE 
1 eSBTTL TTY INPUT ROUTINE 
: ee a a ee ee 
eENABL L 
033318 000000 STKCNT: .WORD 0 sNUMBER OF {TENS IN QUEUE 
033312 000000 STKQIN: .WORD 7: INPUT POINTER 
033314 000000 $TKOOUT: .WORD 3sOUTPUT POINTER 
033316 STKQSRT: .BLKB 33TTY KEYBOARD QUEUE 


033325 STKQEND=. 
EN 


2*TkK INITIALIZE ROUTINE 
s*THIS ROUTINE WILL INITIAL aie THE TTY KEYBOARD INPUT QUEUE 
3 *SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


:#CALL: 

* JSR PC, $TKINT 

* RETURN 
033326 005037 033310 STKINT: CLR STKCNT 3CLEAR COUNT OF ITEMS IN QUEVE | 
033332 012737 033316 033312 MOV #STKOSRT,STKQIN {ROVE THE STARTING ADDRESS OF THE 
033340 013737 033312 033314 MOV STKQIN,$TKQOUT ::QUEUE INTO THE INPUT & OUTPUT POINTERS. 
033346 012737 033376 000060 MOV #STKSRY QATKVEC 33 i INITIALIZE THE KEYBOARD VECTOR 
033354 012737 900200 000062 MOV aaTKVE LEVEL 4 
033362 005777 1455746 TST me tICLEAR DONE FLAG 
033366 012777 000100 145564 MOV #100, a8TKS t:ENABLE TTY KEYBOARD INTERRUPT 
033374 000207 RTS RETURN TO CALLER 


2*TK SERVICE ROUTINE 
3*THIS yy bh WILL SERVICE THE TTY KEYBOARD INTERRUPT 
isBY pyle ay HE CHARACTER FROM THE INPUT BUFFER AND PUTTING 


E QUEUE. 
3*1F THE CHARACTER IS A “‘CONTROL-C** (“C) STKINT IS CALLED AND 
[UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C'' RESTART ADORESS (CTRAP) 


033376 117746 145560 $TKSRV: MOVB asTK,.-( ::PICKUP THE CHARACTER 
033402 042716 177600 BIC #°C177 (35) *:STRIP THE JUNK 

033406 021627 000021 CMP (SP) , #$XON 331S IT A RANDOM XON? 
033412 001002 BNE 30$ * BRANCH IF NO 

033414 005726 TST (SP)+ t:CLEAN RANDOM XON OFF STACK 
033416 000002 ae RTI + RETURN 

033420 021627 000003 CMP (SP) #3 3531S IT A CONTROL C? 
0334 4 001007 BNE 1 1F NO 

033426 104401 034533 TYPE SCNTLC :ETVBE A CONTROL=C (*C) 
033432 004737 033326 JSR PC, $TKINT ‘INIT THE KEYBOARD 
033436 005726 TST (SP)+ *:CLEAN UP STACK 
033440 9001 034574 JMP ‘ TRAP t: CONTROL C RESTART 
033444 021627 000007 1$: CMP (SP) a7 331$ IT A CONTROL G? 
03345 1 BNE : SBRANCH IF NO 

033452 022737 000176 001154 CMP ASWREG, SWR SZ1S SOFT-SWR SELECTED? 
03 1500 BEQ 6$ $:G0 TO SWR CHANGE 

0334 2$: 

03 022737 000007 033310 CMP #7, $TKCNT z31$ THE QUEUE FULL? 
0534 1004 BNE $ c 

033472 104401 001176 TYPE  $BELL + TRING ot TTY BELL 





3 
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(AAA 
SRNARORVSO 


SOooooco°ooo 
hetetrtecetyctetety 
PNA 


(ANIA 


MU 
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000023 
145444 
145436 
145432 
177600 
000021 
000100 
033310 
000140 


000175 


033312 
033316 


000176 
145316 


145312 
177600 
000007 


001150 


—S 
fw 
wila 
ROW 
Win 
=O 


45 


See 
—_> 4 
~NM 

nw 


145410 


033325 
033312 


001154 


000001 


001151 


3$: 


31$: 


32$: 


4$: 


5$: 


TST 


RTI 


#100,a$TKS 


STKCNT 
(SP) ,#140 


(SP) ,#175 

4$ 

#40, (SP) 
(SP5+,a$TKQIN 
TKQIN 

STKQIN, #STKQEND 

#STKOSRT,S$TKQIN 


3 CLEAN CHARACTER OFF OF STACK 
3318 IT A CONTROL~S? 
[BRANCH IF 
3 DISABLE TTY KEYBOARD INTERRUPTS 
AN CHAR OFF STACK 


he FOR A CHAR 
sLOOP_UNTIL ITS oo 
; E CHARA 


sBRANCH IF _NO 
3 :REENABLE TTY KEYBOARD INTERRUPTS 


sRETURN 
COUNT THIS CHARACTER 
2315S IT UPPER CASE? 
sBRANCH IF YES 
31S Am, aT CHAR? 
3 MAKE IT UPPER CASE 
T_IT IN QUEUE 


PU 
ZZUPDATE THE POINTER 
3360 OFF THE END? 


sBRANCH_IF NO 
i ERESET THE POINTER 
3 RETURN 


RRAARAAAAAARAARERARAAETAREAAAAAAAARARAAAAREAARAKAKRAAREERERERES 
; *SOF TWARE SWITCH REGISTER oo ROUTINE. 

;*ROUTINE IS EN HE TRAP HANDLER, AND WILL 
;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 


$cKS 


= *CA +4 “Se OPERA 
as 


* NE 
TSTB 
BPL 
MOVB 
BIC 
CMP 
BNE 


TERED FROM T 


a$TKS 


$ 
a$TKB,-(SP) 
aetna (SP) 
(SP) #7 


TING IN TTY eat ty 
WREG, SWR 


UPT MODE. 
:IS_TH as SELECTED 


sik A_CHAR WAITING? 
331F NOT, EXIT 


MAKE IT 7-B1T ASCII 
iis IT A CONTR 
t:1F NOT, PUT IT In. THE TTY QUEUE 
AND EXIT 


FRRAAAAARAPRARARAAARARERERERERERERAEREERERERRAERRAERARERERARRAAERE 


 SCONTROL is <n TO THIS POINT FROM cites THE TTY INTERRUPT SERVICE 


* *ROUT INE 
**CONTROL-G BEING TYPED, AND THE 
é$: CMPB - $AUTOB, #1 
BEQ 
TST (SP)+ 
JSR PC, $TKINT 
CLR astks 
MOVB =: #1, SINTAG 
TYPE  ,$CNTLG 
SGTSWR: TYPE >$MSWR 
V SWREG, -(SP) 
TYPOC 


THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 


_SOF TWARE SWITCH REGISTER BEING SELECTED. 
WE RUNNING IN AUTO-MODE? 


CH IF YES 
SICLEAR as A OFF STACK 
3 FLUSH ig Y INPUT QUE 
sDISABLE T Y KEYBOARD INTERRUPTS 
SISeT INTERRUPT MODE INDICATOR 


33ECHO THE CONTROL-G (*G) 
2s TYPE cUNNENT CONTENTS 
sSAVE SWREG FOR TYPEOUT 
360 TYPE=-OCTAL ASCIICALL DIGITS) 


SEQ 0153 


4 
Col 
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TTY INPUT ROUTINE 

033730 104401 034563 TYPE  ,$MNEW ::PROMPT FOR NEW SWR 
033734 005046 19$: CLR =(SP) *:CLEAR COUNTER 
033736 005046 CLR -(SP) *: THE NEW SWR 
033740 105777 145214 7$: TSTB © a$TKS *:CHAR THERE? 
033744 100375 BPL 7$ t:IF NOT TRY AGAIN 
033746 117746 145210 MOVB = aSTKB, = (SP) z:PICK UP CHAR 
033752 042716 177600 BIC #°C177, (SP) SMAKE IT 7-BIT ASCII 
033756 021627 000003 CMP (SP) #3 z31S IT A CONTROL-C? 
033762 001015 BNE 9$ +:BRANCH IF NOT 

33764 104401 034533 TYPE  ,$CNTLC t:YES, ECHO CONTROL=C (*C) 
033770 062706 000006 ADD #6, SP *:CLEAN UP STACK 
033774 123727 001151 000001 CMPB = SINTAG, #1 :REENABLE TTY KEYBOARD INTERRUPTS? 

34002 001003 - BNE 3: H IF 
034004 012777 000100 145146 MOV #100, a$TKS *:ALLOW TTY KEYBOARD INTERRUPTS 
034012 000137 034574 8$: JMP CTRAP *:CONTROL=C RESTART 
034016 021627 000025 9$: CMP (SP) #25 ::1S IT A CONTROL-U? 
034022 001005 BNE ‘BRANCH IF NOT 
034024 104401 034540 TYPE  ,$CNTLU 7:YES, ECHO CONTROL-U (“U) 
034030 062706 000006 20$: ADD #6,SP +: IGNORE PREVIOUS INPUT 
034034 000737 BR 19$ t:LET'S TRY IT AGAIN 
034036 021627 000015 10$: CMP (SP) #15 z:1S IT A <CR>? 

034042 001022 BNE 16$ ::BRANCH IF 

034044 005766 000004 TST 4(SP) t:YES, IS IT THE FIRST CHAR? 
034050 001403 BEQ 11$ +:BRANCH IF YES 
034052 016677 000002 145074 MOV 2(SP) ,aSWR ::SAVE NEW S 

034060 062706 000006 11$: ADD #6,SP *:CLEAR UP STACK 

064 104401 001203 14$: TYPE SCRLF 3:sECHO <CR> AND <LF> 

034070 123727 001151 000001 CMPB ss S$ INTAG, #1 t RE-ENABLE TTY KBD INTERRUPTS? 
034976 001003 BNE 15$ 3: BRANCH IF 
034100 012777 000100 145052 MOV #100, a$TKS *:RE-ENABLE TTY KBD INTERRUPTS 
034106 000002 15$: — RTI + SRETURN 
034110 004737 035762 16$: JSR PC,$TYPEC S:ECHO CHAR 
034114 021627 000060 CMP (SP) ,460 *:CHAR < 0? 
034120 002420 BLT 18$ ‘BRANCH IF YES 

034122 021627 000067 CMP (SP) #67 *:CHAR > 7? 
034126 003015 BGT 3: BRANCH IF YES 
034130 042726 000060 BIC #60, (SP)+ *:STRIP-OFF ASCII 

034134 005766 000002 TST 2(SP) t:1$ THIS THE FIRST CHAR 
034140 00140 BEQ 17$ +:BRANCH IF YES 
034142 006316 ASL (SP) *:NO, SHIFT PRESENT 

034144 006316 ASL (SP) t: CHAR OVER TO MAKE 

034146 006316 ASL (SP) t: ROOM FOR NEW ONE. 

034150 005266 000002 17$: ‘INC 2(SP) S:KEEP COUNT OF C 

034154 056616 177776 BIS -2(SP), (SP) 33SET IN NEW CHAR 

034160 000667 BR *:GET THE NEXT ONE 

034162 104401 001202 18$: TYPE $SQUES sz TYPE ?<CR><LF> 

034166 000720 soot the 30$ S:SIMULATE CONTROL-U 


JE RRRAAAAAAAARAAARAERAAAAA ERA EAA AREER AAERAEERAERAERREAERA AERA ER 


==: 2 40000 

Noe 4 = 

MNS —MNUOS 
YOY F NNO 
= - NOS 
ARINC: DWWAO 


——=O — od 
SOR SRERSES 
ReISaS 
NWO 


EN 


SxSexseera 
NOLNS NSW 
Sassteases 


000004 
000004 


034214 


033310 
033310 
177062 
033314 
033314 


033316 


034514 


03451 
05451 


000134 
034512 


000025 


000002 


000004 


033325 


033314 


034512 


034512 
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gsTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
te RDCHR 3:GET_A CHARACTER FROM THE QUEUE 
* RETURN HERE [CHARACTER IS ON THE STACK 
* +:WITH PARITY BIT STRIPPED OFF 
SRDCHR: MOV (SP) ,-(SP) ; PUSH DOWN THE PC AND 
MOV 4(SB5, 2(SP) HE P 
CLR 4 (SP °2GET READY FOR A CHARACTER 
CLR 3 SPUT NEW PS ON STACK 
MOV 7625. -(SP) NEW PC ON STACK 
sa RTI : BOP NEW PC AND PS 
1$: Ist STKCNT z:WAIT ON A CHARACTER 
DEC S$TKCNT ::DECREMENT THE COUNTER 
MOVE © @STKQOUT,4(SP) 33GET ONE CHARACTER 
INC $TKQOUT [UPDATE THE POINTER 
CME STKQOUT ,#STKQEND "3 2DID IT GO OFF OF THE END? 
MOV #STKOSRTSTKQOUT’ "; ZRESET THE POINTER 
RTI : :RETURN 
PPTEMITTTTTTTTTTTTIT ETT TTTTIT LTT 
ZeTHIS | ROUTINE WILL INPUT A STRING FROM THE TTY 
:  RDLIN s INPUT A STRING FROM THE T 
* RETURN HERE tTADDRESS OF FIRST FRONARAETER ‘yiut BE ON THE STACK 
7* +: TERMINATOR WILL BE A BYTE OF ALL 0°S 
SRDLIN: MOV R3,-(SP) rSAVE R3 
CLR -(§P) ECLEAR THE RUBOUT KEY 
1$: MOV #STTYIN,R3 33GET AD DRESS 
23: CMP -  #STTYIN¢15.,R3 ::BUFFER FULL? 
BLOS 6 4$ [:BR IF YES 
RDCHR 760 READ ONE CHARACTER FROM THE TTY 
MOVB (SP) +, (R3) t2GET CHARACTER 
10$: CMPB ‘#177, (R3) t:IS IT A RUBOUT 
BNE g ::BR IF NO 
TST (SP) 31S THIS THE FIRST RUBOUT? 
BNE 6$ 3i8R IF NO 
nove #'\,9$ t: TYPE A BACK SLASH 
MOV #-1, (SP) cant THE RUBOUT KEY 
6S: DEC R3 + :BACKUP BY 
CM R3,ASTTYIN ¢:STACK EMPTY? 
MOVB = (R3),9$ 23 SETUP TO TYPEOUT THE DELETED CHAR. 
TYPE 9$ 0 TYPE 
BR bs 7:G0 READ ANOTHER CHAR. 
S$: ‘TST (SP) 3 3RUBOUT KEY SET? 
BEQ 7$ ‘BR IF NO 
nove #\,9$ : {TYPE A BACK SLASH 
CLR (SP) ::CLEAR THE RUBOUT KEY 


7$: CMPB #25, (R3) 2215 CHARACTER A CTRL U? 
8$ 22BR IF NO 





BAO SS 


N 12 


ERE EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 40-4 , SEQ 0156 

104401 034540 TYPE SCNTLU s3TYPE A CONTROL ‘U"* 

726 BR ST VER a 
122713 000022 8$: CMPB Ss #22, (R3) HIS CHARACTER AR"? 
001011 BNE 3$ + ;BRANCH 
105013 CLRB —s- (R23) 33 CLEAR THE CHARACTER 
104401 001203 TYPE  ,$CRLF :TYPE A ‘'CR' & er 
104401 034514 TYPE S$TTYIN SiTYPE THE INPUT STRING 
000717 BR $ 360 PICKUP ANOTHER CHACTER 
104401 001202 4$: TYPE $QUES S TYPE A 
900712 BR getveg A THE BUFFER AND LOOP 
111337 034512 3$: MOVB = (R3),9$ +:ECHO THE CHARACTER 
104401 034512 TYPE , 
122723 000015 CMPB es #15, (R3)+ i CHECK FOR. RETURN 
001305 BNE ::LOOP IF NOT RETURN 
105063 177777 CLRB = = 1(R3) =: CLEAR REVORN (THE 15) 
104401 001204 TYPE ,$LF ::TYPE A LINE F 
005726 TST + 33CLEAN RUBOUT KEY FROM THE STACK 
012603 MOV (SP)+,R3 TRESTORE R3 
011646 MOV (SP) ,-(SP) $:ADJUST THE STACK AND PUT ADDRESS OF THE 
01 000004 000002 MOV 4(SP5 ,2(SP) FIRST ASCII CHARACTER ON IT 
012766 034514 000004 MOV ASTTYIN, 4 (SP) 

2 RTI 37 RETURN 
000 9$: .BYTE 0 *:STORAGE FOR ASCII CHAR. TO TYPE 
000 “BYTE 0 2:T 
STTYIN: .BLKB. 15. 33RESERVE 19,, BYTES FOR TTY INPUT 

136 103 015 S$CNTLC: .ASCIZ /*C/<15><12> 3 CONTROL "'C’* 

136 125 O15 SCNTLU: (ASCIZ /*U/<15><12> — ;CONTROL ‘U"" 

136 107 015 $CNTLG: .ASCIZ /*G/<15><12> :CONTROL ''G 

015 012 123 $MSWR: .ASCIZ <15><12>/SUR = /" 

040 040 116 $MNEW: .ASCIZ / NEW = / 

STHIS ROUTINE WILL PROCESS THE (*C) CHARACTER 

012737 000001 001340 CTRAP: MOV #1,CFLAG sSET THE "CONTROL C° FLAG 
005237 033310 INC STKCNT. ;COUNT THIS CHARACT 
112777 000015 176476 MOVB «#15, @STKQIN ‘PUT "RETURN' CHARACTER IN QUEUE 
005237 033312 INC $TKOIN UPDATE THE POINTER 
023727 033312 033325 CMP STKQIN,#STKQEND :GO OFF THE END ? 


BNE 3BR_IF YES 
012737 033316 033312 MOV #STKQSRT ,STKQIN 3RESET THE POINTER 
000002 1$: RTI 2RETURN 
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ERROR HANDLER ROUTINE : 
1 -SBTTL ERROR HANDLER ROUTINE 


RRRRARARRAAAAEAAAREEAAAEEEAREEAAAREREAAAARAAKARRAAS ARAN AEREAATE 
:ATHIS ROUTINE WILL tery THE ERROR FLAG AND THE ERROR COUNT, 
3 *SAV VE THE ERROR th 7. AND THE ADDRESS OF THE ERROR CALL 


#AND GO TO $ERRTYP ON ERRO 
;eTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
*SW13=1 INIBIT ERROR TYPEOUTS 
isSwi0=1 BELL ON ERROR 
3* ERROR N s;ERROR=EMT AND N=ERROR ITEM NUMBER 
034640 105037 035226 SERROR: CLRB  _—=IBSAVE zsCLEAR THE ITEM BYTE SAVE LOCATION 
034644 104407 CKSWR “TEST F GE IN SOFT-SWR 
034646 010337 001322 MOV RS.ATTN ; SAVE THE ATTENTION REGISTER CONTENTS 
034652 010137 001220 MOV 1. DRIVE RIVE NUMBE 
034656 032777 020000 144270 BIT Asins. aSwR {INAIBIT PRINTOUTS ? 
034664 001004 BNE +12 ‘BR IF YES 
034666 104401 001203 TYPE  ,$CRLF :CRoLE 
034672 104401 001203 TYPE ,$CRLF CR- 
034676 004737 024764 JSR PC, S$TIME iOnek y HE TIME 
034702 105237 001117 7$: INCB = SERFLG ziSET THE ERROR FLAG 
034706 001775 BEQ 7$ ::DON'T LET THE FLAG GO TO ZERO 
034710 013777 001116 144240 MOV STSTNM, @DISPLAY SO OSPLAY TEST NUMBER AND ERROR FLAG 
034716 032777 002000 144230 BIT #B1T10,aSWR 7:BELL ON ERROR? 
034724 001402 BEQ 1$ ==NO = SKIP 
034726 104401 001176 TYPE 33RING BEL 
034732 005237 001126 1$: INC SERTTL [COUNT THE NUMBER OF ERRORS 
034736 011637 001132 MOV (SP) , SERRPC <2GET ADDRESS OF ERROR INSTRUCTION 
034742 162737 000002 001132 SUB #2, SERRPC 
034750 117737 144156 001130 MOVB  a@SERRPC,$ITEMB ;::STRIP AND SAVE THE ERROR ITEM CODE 
034756 032777 001000 14417) BIT #B1T09, aSwR 33SEE IF LOOP ON ERROR IS SET 
034764 001060 BNE 1004$ = :BRANCH AROUND ROUTINE IF SO 
034766 122737 000177 001130 CMPBs«a#177, SITEMB 33 SEE IF THIS IS THE POWER FAIu CALL 
034774 001454 BEQ 1004$ : BRANCH AR R IF IT IS 
034776 105737 035226 TSTB IBSAVE 33 SEE IF THIS IS ou 2ND ERROR CALL IN THIS ROUTINE 
035002 001047 BNE 1003$ CH IF S$ 
35004 022737 177777 035224 CMP #-1, CPSAVE 3ISEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
035012 001445 BEQ 1004$ F SO 
035014 013746 000004 MOV —_—ERRVEC,,-(SP) <TSAVE CONTENTS OF ERROR VECTOR 
035020 012737 035036 000004 MOV #10008 .ERRVEC S:SETUP 'TRAP® ADDRESS 
0350 6 013737 177766 035224 MOV 100 66.CPSAVE ::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
035036 5006s 177777 035224 1000$: MOV CPSAVE i3SET CPU ERROR REGISTER TIMEOUT INDICATOR 
035044 012716 035052 MOV 410018° (SP) +:SETUP RETURN ADDRESS 
035052 £00886 000004 1001$: MOV (SP)+,ERRVEC  :;RESTORE CONTENTS OF ERROR VECTOR 
035056 022737 177777 035224 1002%: CMP #-1, CPSAVE ;3SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
035064 001420 BEQ é “BRAN 
O330% Soqaig Comme! 085226 BIT WaITOO.CPSAVE :3SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 
035076 042737 BIC #81T00,177766 23 CLEAR THE BIT FOUND ote 
035104 113737 OO1130 05 035788 $6 MOVB Psi IBSAVE MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 
035112 112737 01130 MOVB <°SET SITEMB TO SPECIAL POWER FAIL POINTER 
035120 000402 BR : BRANCH OVER IBSAVE CLEARING 
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ERROR HANDLER ROUTINE 


9 2 105037 035226 1007: CLRB IBSAVE i3CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 
035126 STH 4a 020000 144020 BIT i713, aSWR 33SKIP TYPEOUT IF SET 

0351 1 BNE 33SKIP_TYPEOUTS 

O32) 004737 039630 JSR PC,SERRTYP 3:60 TO USER ERROR ROUTINE 

Seales 104401 00120 208 TYPE o SCRLF 

035146 122737 000001 001226 CMPB #APTENV , SENV 33RUNNING IN_APT MODE 

035154 001007 BNE $ 33NO,SKIP APT ERROR RE 

035156 113737 1130 035170 MOVB SITEMB,21$ 3:SET ITEM NUMBER AS ERROR NUMBER 

035164 004737 036574 JSR PC ,SATY4 33REPORT FATAL ERROR TO AP 

035170 000 21$: -BYTE 

035171 000 -BYTE 

035172 000777 22: BR 22s 33APT ERROR LOOP 

035174 105737 035226 es: TSTB IBSAVE 33SEE IF IBSAVE IS LOADED 

035200 001005 BNE 3$ 33BRANCH IF NOT = NO HALT ON PWR MON BIT ERROR 
035202 005777 143746 TST aswR 3zHALT ON ERROR 

035206 100002 BPL 3$ 33SKIP IF CONTINUE 

035210 000000 HALT 3sHALT ON : 

Sessile 104407 3s CKSWR 33TEST FOR CHANGE IN SOFT-SWR 

035214 105737 035226 TSTB IBSAVE 32SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
035220 001230 BNE 7$ 33BRANCH BACK TO CALL ORIGINAL ERROR 
035222 000002 RTI 3 RETURN 

035224 000000 CPSAVE: .WORD 0 3ZLOCATION TO SAVE CPU ERROR REG CONTENTS 
035226 000000 IBSAVE: .WORD 0 z3LOCATION TO SAVE ITEM BYTE 
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ERROR MESSAGE TYPEOUT ROUTIN 


0 

035402 
035406 
035416 
035500 


035532 


001203 


001130 


001132 


000177 


001212 
035406 


035546 


035402 
040 000 

0355 035336 
11 1 
105 

001132 035224 


SEQ 0159 


«SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


FRAAAAAAARAAAARAAERARAAAERERERAARRERERRERRERERERRAREERERRERERERRE 


sits, Rourine USES THE ‘ITEM CONTROL BYTE"’ Siem: TO DETERMINE WH 


1$: 


1000$: 


1001$: 


2s: 
3$: 


4$: 
5$: 
6$: 


7$: 


8$: 
PFECH: 
PF ECH1: 
PFECH2: 


PFECH3: 


REPORTED. 


BE IT THEN OBTAINS, FROM THE ‘ERROR 
[AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERR OR. 


SERRTYP: 


WHICH 
TABLE’’ (SERRTB), 


i “CARRIAGE RETURN’ & "LINE FEED" 
::PICKUP THE ITEM INDEX 


z1F_ ITEM NUMBER IS wee JUST 
ZITYPE THE PC OF THE E 
33SAVE SERRPC FOR TYPEQUT” 


CER NPE ADDRESS 
2260 TYPE=-OCTAL ASCII(ALL DIGITS) 
33SEE a ys A ae CALL IS SPECIAL POWER FAIL CALL 


oe H 
23GET TEST NUMBER 
3 sMOVE oe emi ae CALL TABLE TO RO 


7:BRANCH TO 
3 ADJUST THE pers SO THAT IT WILL 
ee WORK FOR THE ERROR TABLE 


z3FORM TABLE POINTER 

; PICKUP TERROR MESSAGE" POINTER 

::SKIP TYPEQUT IF NO. POIN TER 

Z3]YPE THE "ERROR MESSAGE 

23 ERROR MESSAGE POINTER GOES HERE 

33''CARRIAGE RETURN" © "LINE FEED 

PICKUP “DATA HEADER"* POINTER 

: SKIP TYPEQUT I A 

iETYPE THE “DATA " MEADER 

33 HEADER’ POINTER GOES HERE 

GE RETURN’ & “LINE FEED 

UP "DATA TABLE’’ POINTER 
THE DATA 


ORE RO 
£3 CARRIAGE RETURN’ & “LINE FEED*’ 


33SA¥E @(RO)+ FOR TYPEOUT 
TYPE--OCTAL ASCIICALL DIGITS) 

HIS HY a ANOTHER NUMBER? 

33 TYPE TWO(2) SPACES 


ssl 
7:TWO(2) SPACES 


* EVEN 
PFECH1,PFECH2 PFECHS PFECHS z:WORDS DEFINING TABLES 8 BELOW 
A 2POWER MONITOR BIT 


IN CPU ERROR REGISTER F SET? 


?TESTNO ERR PC CPUERREG? 


TYPE SCRLF 
MOV RO,-(SP) 
CLR R 
BIS8 aASITEMB,RO 
BNE 1$ 
MOV SERRPC,-(SP) 
TYPOC 
BR $ 
CMPBs«#'177,,RO 
BNE 1 
MOV STESTN,PFTSTN 
MOV #PFECH,RO 
BR 
DEC R 
ASL RO 
ASL RO 
ASL RO 
ADD #SERRTB,RO 
MOV (RO)+,2$ 
BEQ 3$ 
TYPE 
WOR 
TYPE  ,$CRLF 
MOV (RO) +,4$ 
BEQ 5$ 
TYPE 
.WORD 0 
TYPE  ,SCRLF 
MOV (RO) .RO 
BNE 
MOV (SP)+,RO 
TYPE SCRLF 
RTS PC 
MOV a(RO)+,-(SP) 
TYPOC 
TST (RO) 
BEQ 6% 
TYPE 8$ 
BR *$ 
~ASCIZ / / 
V 
ASCIZ 
“WORD PFTSTN, SERRPC,CPSAVE 0 
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ERROR MESSAGE TYPEOUT ROUTINE 
O2ehe 000 000 000 PFECH4: .BYTE g-9.8.0 
035546 000000 PFTSTN: .WORD 


33CONTAINS TEST NUMBER FOR PF BIT ERROR 


SEQ 0160 


w wer 


105737 
100002 


001173 


000002 
000001 


000100 


035620 
036564 


000040 


000002 
000011 
000200 


036100 


6 001178 


001170 
000001 


036100 
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-SBTTL TYPE ROUTINE 


ne cree carte eacaaee aaaaaee daar Sea Ga 

: #ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 lt 

[*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER Pal INE FEED. 

3 *NOTE]: CONTAINS THE CHARACTER 9 aL USED AS THE” FILLER CHARACTER. 
3 *NOTE@: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

; *NOTE : SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


fe *CALL: 
#1) USING A TRAP INSTRUCTION 
YPE  ,MESAD z:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


740R 
ie TYPE 
* MESADR 
3@ 
STYPE: IsTB STPFLG zz1S THERE A TERMINAL? 
HALT 33HALT HERE IF NO TERMINAL 
BR 3$ 3 SLEAVE 
1$: MOV RO,-(SP) TSAVE RO 
MOV @2(SP) ,RO <2GET ADDRESS OF ASCIZ STRING 
CMPB 0s #APTTENV,, SENV 2 ERUNNING IN APT 
BNE *:N0,GO CHECK FOR APT CONSOLE 
BITB § #APTSPOOL,SENVM ::SPOOL MESSAGE TO APT 
BEQ $ +:NO,GO CHECK FOR CONSOLE 
MOV RO,61$ +:SETUP MESSAGE ADDRESS FOR APT 
JSR PC. SATY3 +:SPOOL MESSAGE TO APT 
61$:  .WORD 3 3MESSAGE ADDRESS 
62$: BITB  #APTCSUP,SENVM ::APT CONSOLE SUPPRESSED 
BNE S:YES,SKIP TYPE OUT 
2s: MOVB  (RO)+,=(SP) 3 3PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4$ ":BR IF IT ISN'T THE TERMINA 
TST (SP)+ ie TERMINATOR POP IT OFF THE STACK 
60$: MOV (SP)+,R0 TORE RO 
3$: ADD #2, (SP) ADJUST RETURN PC 
RTI * RETURN 
4$: CAP #HT, (SP) : 3BRANCH IF <HT> 
CPB CRLF , (SP) : BRANCH IF NOT <CRLF> 
TST (SP) + i POP <CR><LF> EQUIV 
TYPE 7: TYPE A CR AND LF 
CLRB SCHARCNT z:CLEAR CHARACTER COUNT 
BR 7:GET NEXT CHARACTER 
5$: JSR PC, STYPEC 2:60 TYPE THIS CHARACTER 
6S: CMPB s-s«sSFALLC,(SP)*  ::1S IT TIME FOR FILLER CHARS.? 
BNE t:1F NO GO GET NEXT CHAR. 
MOV S$NULL ,-(SP) S:GET # OF FILLER CHARS. NEEDED 
S:AND THE NULL CHAR. 
7$: DECB—s«1( SP) ':DOES A NULL NEED TO BE TYPED? 
BLT $:BR IF NO--GO POP THE NULL OFF OF STACK 
JSR PC, S$TYPEC 7:60 TYPE A NULL 
DECB CHARCNT 3300 NOT COUNT AS A COUNT 





wm 













CZRNAAO 
TYPE ROUTINE 


SF Oyary? O3576 


94 132737 aaeres 036100 


WIAA 


we 


105777 143172 


100022 
03577 oie 46 143166 
035774 716 177600 
0 122716 00002 


COOoooocooeo 


0 105777 143146 
036014 117716 14314 
137600 


036034 105777 143124 


aay 143116 
036050 122766 000015 000002 


105037 036100 
036066 122766 000012 000002 
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sHORIZONTAL TAB PROCESSOR 


gs: MOVB 
$: JSR 
B1TB 
BN 


STYPEC: 


101$: 


102$: 
10$: 


1$: CMPB 


NCB 
SCHARCNT : . WORD 


STYPEX: RTS 





it $tipec 
#7. SCHARCNT 


Pepys 
23 

asTKs 
aSTKB,-($ 
hth oop) 
#SXOFF , (SP) 
a$TKs 

101$ 

a$TKB, (SP) 
#177600, (SP) 
#SXON, (SP) 


(SP)+ 
asTPS 


10$ 
2(SP) astP8 
#CR,2(SP) 


ous wes) 
Ptys 
PC 


G 13 


ashen TAB WITH SPACE 
z3TYPE A SPACE 
2 OT IF NOT AT 


7:POP SPACE OFF STACK 
33GET NEXT CHARACTER 


23 CHAR IN _KYBD BUFFER? 
;BR_IF NOT 


2IGET CHAR 
33 STRIP EXTRANEOUS BITS 
33WAS CHAR XOFF 


33WAIT FOR CHAR 
32GET CHAR 
23STRIP IT 
WAS IT XON? 
3:8R IF NOT 
33FIX STACK 
33WAIT UNTIL PRINTER IS READY 


3:LOAD CHAR TO BE TYPED INTO DATA REG. 
2318 ee A CARRIAGE RETURN? 


#2 YES=CLEAR CHARACTER COUNT 
3318 eae LINE FEED? 


COUNT THE CHARACTER 
CHARACTER COUNT STORAGE 


SEQ 0162 
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BINARY TO OCTAL (ASCII) AND TYPE TI 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


33 RERRAERARRRARAERAARREAEEEEEAEEAEARARARARARAAEAREEARAREREEEEREREAEEREKE 


*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


SROCTAL (ASCII) NUMBER AND TYPE IT. 
i #STYPOS--~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
8 MOV NUM, <(SP) :;NUMBER TO BE TYPED 
3* TYPOS s:CALL FOR TYPEOUT 
3* .BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3° “BYTE M 72M=1 
ie :1=TYPE LEADING ZEROS 
:* +:0=SUPPRESS LEADING ZEROS 
*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
i #$TYPOS OR $TYPOC 
*CALL: 
ie MOV NUM, =(SP) :;NUMBER TO BE TYPED 
i TYPON [:CALL FOR TYPEOUT 
i #$TYPOC=--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
ie MOV NUM, =(SP) : NUMBER TO BE TYPED 
7* TYPOC *:CALL FOR TYPEOUT 
036104 017646 000000 STYPOS: MOV a(SP),-(SP) . :;PICKUP THE MODE 
036110 11663 900001 036327 MOVB 1(SP),$OFILL  ;;LOAD ZERO FILL SWITCH 
036116 112637 036331 MOVB (SP)+,$OMODE+1 ::NUMBER OF DIGITS TO TYPE 
036122 062716 000002 ADD #2, (SP) S ADJUST RETURN ADDRESS 
036126 000406 BR $TYPON 
0361 11273 000001 036327 STYPOC: MOVB #1,SO0FILL zSET THE ZERO FILL SWITCH 
936136 112737 036331 MOVB #6. SOMODE*1 *:SET FOR $IX(6) DIGITS 
036144 112737 p00008 036326 STYPON: MOVB #5,$0CNT T:SET THE ITERATION COUNT 
036152 010346 MOV R3,-(SP) SAVE 
036154 010446 MOV R4.=(SP) TISAVE R4 
036156 010546 MOV R5,-(SP) S:SAVE RS 
036160 113704 036331 nove somOD E+1,R4 +:GET THE NUMBER OF DIGITS TO TYPE 
166 062704 900006 ADD #6,R4 z;SUBTRACT IT FOR MAX. ALLOWED 
110437 03633 MOVB  R4, SOMODE [:SAVE IT FOR US 
113704 036327  MOVB = SOFILLJR4 +:GET THE ZERO FILL SWITCH 
016605 000012 MOV 1e¢SP) .RS ::PICKUP THE INPUT NUMBER 
905005 CLR 3:CLEAR THE OUTPUT WORD 
9061 E 1$: ROL R5 S:ROTATE MSB INTO "'C 
04 BR 3$ 3:60 DO MSB 
006105 2$: ROL R5 [:FORM THIS DIGIT 
006105 ROL R5 
90670 ROL R 
1050 MOV R5,R3 
10 3$: ROL R3 ::GET LSB OF THIS DIGIT 
333 036330 beCe SOMODE 33 TYPE THIS DIGIT? 
042703 177770 BIC #177770,R3 [:GET RID OF JUNK 
901002 BNE 4$ Z:TEST FOR O 
5704 TST R4 * SUPPRESS THIS 0? 
001403 BEQ 5$ 33BR | 
005204 4$: INC RG *:DON'T SUPPRESS ANYMORE 0'S 
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) AND TYPE 


2 
Zt: 
— 
ow 
os 
oO 
— 
22 
mn 
Zz 
am 
m 
=< 
me iT? 


oCoooocoocoo 
SSS 2 wu 
SH SB OO 
2MWw 
& SUS 
We NNW DD 
So 
forore 
ae 
rotate} 
wave 
zz 
se 
oS 
J 
9 20 
s 
: 
mm 
I 
= 
ae 
mn 
bag 
=] 
St be 
TG) 
ta 
._“ 
“> 
“a 
>o~ 
en) 
De 
s 
< 


5$: ssMAKE ASC 

R3,8$ t:SAVE FOR TYPING 
TYPE £:G0 TYPE THIS DIGIT 
6 7$: DECB «©-_-« $OCNT [:COUNT BY 1 

BGT 2$ 7:BR IF MORE TO 00 


33BR I 
3s: INSURE LAST DIGIT ISN°T A BLANK 


RR 
2 
o 
Zz 
S 


3 BR 2s 3360 DO THE LAST DIGIT 

0 01 6$: MOV (SP)+,R5 ssRESTORE RS 

036306 ais MOV (SP)+,R4 ssRESTORE R4 

0 4 012603 MOV (SP)+,R3 ssRESTORE R3 

036312 016666 000002 000004 MOV 2(SP) ,4(SP) 33SET THE STACK FOR RETURNING 
036320 01 seis MOV (SP)+, (SP) 

036322 00000 RTI 3 sRETURN 

036324 000 8$: BYTE 0 33STORAGE FOR ASCII DIGIT 
036325 000 BYTE 0 33 TERMINATOR FOR TYPE ROUTINE 
036326 000 SOCNT: .BYTE 0 3;0CTAL DIGIT COUNTER 

eat 000 SOFILL: .BYTE 0 33ZERO FILL SWITCH 

0363 000000 SOMODE: .WORD 0 33NUMBER OF DIGITS TO TYPE 


ee OO OE A TOS 
a eeieiall 
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CIMAL AND TYPE ROUTINE 


»SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


eeeeerseniaiese nner a ae oat aauae momen teh tan 
SATHIS ROUTINE IS USED TO CHANGE A yc BINARY NUMBER TO A 5-DIGIT 

3 *SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. aint al ON WHETHER THE 
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
[*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 

: #REPLACED WITH SPACES. 


CZRNAAO RM80 PERF EX 
CONVERT BINARY TO DE 


* MOV NUM, = (SP) ::PUT THE BINARY NUMBER ON THE STACK 

* TYPDS +:G0 TO THE ROUTINE 

036332 STYPDS: 

036332 010046 MOV RO,=(SP) ::PUSH RO ON STACK 

036334 010146 MOV R1.=(SP) + PUSH R1 ON STACK 

036336 010246 MOV R2,~(SP) + PUSH Re ON STACK 

036340 010346 MOV R3.-(SP) PUSH R3 ON STACK 

036342 010546 MOV R5.=(SP) +:PUSH R5 ON STACK 

036344 012746 020200 MOV #20200,-(SP) | ::SET BLANK SWITCH AND SIGN 

036350 016605 000020 MOV 20(SP).R5S ::GET THE INPUT NUMBER 

036354 100004 BPL 1$ 33 F I ‘ 

036356 005405 NEG RS T:MAKE THE BINARY R POS. 

036. 112766 000055 000001 MOVB 3s # "=, 1 (SP) T:MAKE THE ASCII NUMBER NEG. 

036366 005000 1$: CLR RO 33 ZERO THE CONSTANTS INDEX 

036370 012703 036546 MOV #SDBLK ,R3 [SETUP THE OUTPUT POINTER 

036374 112723 000040 MOVB = #":— (R3)* 3ISET THE FIRST CHARACTER TO A BLANK 

036400 005002 2$: CLR 2 CLEAR THE Bee NUMBER 

036402 016001 036536 MOV S$DTBL (RO) ,R1 :i6eT THE CONSTANT 

036406 160105 3$: SUB R1,R5 33FORM THIS Oped DIGIT 

036410 002402 BLT 4$ [BR IF DONE 

036412 005202 INC R2 STINCREASE THE BCD DIGIT BY 1 

036414 000774 BR 3$ 

036416 060105 4$: ADD R1,R5 zzADD BACK THE CONSTANT 

036420 0C5702 TST R2 33CHECK IF BCD DIGIT=0 

036422 001002 BNE 5$ THROUGH IF 

036424 105716 TSTB =: (SP) tISTILL DOING LEADING 0°S? 

036426 100407 BMI 7$ [:BR IF YES 

036430 106316 5$: ASLB (SP) 3 3MSD? 

036432 103003 BCC x3 :BR IF NO 

036434 116663 000001 177777 -  MOVB «=—-1(SP) ,=1(R3) i EVES=-SET THE SIGN 

036442 052702 000060 6$: BIS #0.R T:MAKE THE BCD DIGIT ASCII 

036446 05 208 000040 7$: BIS 33MAKE_IT A SPACE IF NOT ALREADY A DIGIT 

036452 11022 MOVB fo (R3)+ *PUT THIS CHARACTER IN THE OUTPUT BUFFER 

036454 003720 TST (RO)+ $IJUST INCREMENT ING 

036456 020027 000010 CMP Ao, #10 *CHECK THE TABLE INDEX 

036462 002746 BLT 2$ 2260 DO THE NEXT DIGIT 

036464 00 5 BGT BS 3360 TO EXIT 

036466 01050 MOV R5,R2 [GET THE LSD 

03647 7 BR 2260 CHANGE TO ASCII 

036472 105726 8$: TSTB 0s: (SP) + 3 :MAS THE LSD THE FIRST NON-ZERO? 

036474 10000 BPL 9$ IF NO 

036476 11666 177777 177776 MOVB -1(SP),-2(R3)  ::YES=-SET THE SIGN FOR TYPING 

036504 10501 9$: CLRB = (R’3) t°SET THE TERMINA 

0365 12605 MOV (SP)+,R :SROP STACK INTO R 

036510 012603 MOV (SP)+-R ::POP STACK INTO R 

036512 012602 MOV (SP)+-R 33POP STACK INTO R 

036514 012601 MOV (SP)+°R1 +:POP STACK INTO R 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

036516 012600 MOV (SP)+,RO ; sPOP STACK INTO RO 

036520 104401 036546 TYPE Lk TYPE THE 

036524 015666 00002 000004 MOV (SP), 4(SP) + SADJUST THE STACK 

036532 012616 (SP)+. (SP) 

0365 900092 RTI z:RETURN TO USER 

036536 0234 $DTBL: 10000. 

036540 001750 100 

036542 000144 ; 

036544 000012 10. 

036546 $DBLK: .BLKW 4 





i - 
_ | 


-—-0o00 — 
ow = 
WWI 
uN 


g237338 


XN 
se5u 


000001 
000001 


000001 


037020 
000001 
000100 
000004 
000002 
001206 
001222 


035550 


037022 
001226 
001206 


000004 
000002 
001206 
037022 
037021 
037020 
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APT COMMUNICATIONS ROUTINE 


7 
7 
3 
7 
6 
; 
0 


037022 
037020 


037022 


001226 
001227 


000004 


001206 


036732 
000004 


001210 
000004 


-EVEN 
APTSIZE = 200 
APTENV. = 001 
APTSPOOL= 100 
APTC = 
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SEQ 0167 


«SBTTL APT COMMUNICATIONS ROUTINE 


ERRRRARAAERARARERRERREREEEAAERAAERRARERERARERAERERERAERERERERAEERS 


#1,$FFLG 33TO REPORT FATAL ERROR 
4 hy 3370 TYPE A MESSAGE 
#1,S$FFLG 33T0 ONLY REPORT FATAL ERROR 
RO,~(SP) 3 sPUSH RO ON STACK 

R1,-(SP) 3PUSH R1_ON STACK 
SMFLG 33 SHOULD TYPE A MESSAGE? 


5$ IF NOT: 
#APTENV, SENV : OPERATING UNDER APT? 
WAPTSPOOL,SENVM ::SHOULD SPOOL MESSAGES? 


a4 (SP) ,RO 33GET MESSAGE ADDR. 
#2,4(SP) TURN ADDR. 
SMSGTYPE i3SEE IF DONE W/ LAST XMISSION? 
1$ T: WAIT 
RO, SMSGAD ‘pur ADDR IN MAILBOX 
(RO)+ ::FIND END OF MESSAGE 
SMSGAD RO ::SUB START OF MESSAGE 

7:GET MESSAGE LNGTH IN WORDS 
RO, $MSGLGT $3PUT LENGTH IN MAILBOX 
#4, SMSGTYPE +: TELL APT TO TAKE MSG. 
a4(SP).4$ ;sPUT MSG ADDR IN JSR LINKAGE 


#2,4(SP) RE TURN ADDRESS 
177776,-(SP) = PUSH 199776 ON STACK 
PC, $TYPE S:CALL TYPE MACRO 














SFFLG z:SHOULD REPORT FATAL ERROR? 
12$ s:I1F NOT: BR 

SENV 3 :RUNNING UNDER APT? 
SMSGTYPE i FINISHED LAST MESSAGE? 

11$ 331F NOT: WAIT 

a4(SP), SFATAL +:GET ERROR # 

#2,4(SP) “BUMP RETURN ADDR. 
SMSGTYPE ti TELL abi TO TAKE ERROR 
SFFLG S:CLEAR FATAL FLAG 
siFLe *:CLEAR LOG FLA 
SMF t CLEAR MESSAGE FLAG 
(SP)+,R1 3POP STACK INTO R1 

*RETURN 

0 : IMESSG. FLAG 
*:LOG FLA 

0 szFATAL FLAG 


















oe PD 


037024 


037724 


S2SSS5 
(UNO 222 
Oo ~N S 

iw 


—— 
rs 
o 


037124 


037122 
001057 


047401 
037124 
037122 


JSR 


RETUR 
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PC ,SRAND 


3 pf oa 
R1,~(SP) 









SEQ 0168 


pes 


-SBTTL RANDOM NUMBER GENERATOR ROUTINE 


[RRRRRRRERAERARAAAAE AAA AEE AAARAAAARAAAERER ARERR ARERR AEE 
:aTHIS ROUTINE IS A DOUBLE — PSEUDO RANDOM NUMBER GENERATOR 
fate A RANGE OF 0 TO 2(+33)- 


NUMBER WILL BE I 
3 = SHINUM, SLONUM 


33PUSH RO ON STACK 
saat R1 ON STACK 
PUSH Fi STACK 


TCH HECK OR D 
‘CONTINUE SHIFT LOOP 
7ZADD NUMBER TO MAKE X 129 


CON 
:ZPROPOGATE CARRY 
yy CONSTANT 


sSAVE R1 
: POP STACK INTO R2 
33POP STACK INTO R1 
EES A a INTO RO 
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SAVE AND RESTORE RO-R5 ROUTINES 


037126 


037216 
037220 


Oo 
ERE 
AAAS 


COooooocoeoo 
a er er Pear er er Par Per Per} 
SEESE 
rao 
es 
AAA 


i=] 
g 
o 


000002 


: 


ee ee 
Soe 
SR 


3 
Ss 


000022 
000022 
000022 
000022 


000022 
000022 
000022 
000022 


SEQ 0169 


~SBTTL SAVE AND RESTORE RO-R5 ROUTINES vi 


SRRRERAREEREEREREEEEEREEATEERERRERERERREERERERREREREREREREREEREE ‘ 


Z*SAVE RO-R5 
ALL: 


i sTOP=-=(+16) 
3% +2=--(+18) 
3% +4---R5 
3% +6=--R4 
3% +8---R3 
;%+10---R2 
3&+12-=-R1 
3*4+14---R0 


SSAVREG: 
MOV RO,-(SP) 
MOV R1,-(SP) 


MOV -(SP) 
MOV BB CSP). =(SP) 
MOV 22(SP) .=(SP) 
MOV 22(SP) ,=(SP) 
MOV 22(SP) .=(SP) 
RTI 

; #RESTORE RO-RS 
RESREG 

aie 
MOV (SP)+ .22(SP) 
MOV (SP)+,22(SP) 
MOV (SP)+,22(SP) 
MOV (SP)+,22(SP) 
MOV (SP)+,R5 


” SAVREG 
$AUPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


33PUSH RO ON STACK 
3zPUSH R1 ON STACK 
33PUSH R2 ON STACK 
33PUSH R3 ON S 


3 SAVE 
SISAVE PS OF 
2sSAVE PC OF CALL 


zsRESTORE PC OF CALL 
ssRESTORE PS OF CALL 


PoP STACK INTO R1 
33POP STACK INTO RO 


CZ' 
SI 
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DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


-SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


f AARAAAAARAREAAAAAARAAAAATAEAAAAAERAAAAKAAHAAAAAAA AAA AAA AAA eet 
s*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
AT (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


* MOV #PNTR,=(SP) ::POINTER TO LOW WORD OF BINARY NUMBER 
7* JSR PC, a#$DB2D 
7* RETURN :zTHE FIRST ADDRESS OF ASC1Z 
t:1S ON THE STACK 
037222 104412 $DB2D: SAVREG z:SAVE REGISTERS 
037224 016602 000002 MOV 2(SP) ,R2 ::PICKUP THE DATA POINTER 
37230 012700 037402 MOV #SDECVL,RO +:GET ADDRESS OF '‘SDECVL’’ STRING 
037234 010066 000002 MOV RO, 2(SP5 ::PUT ADDRESS OF ASCIZ STRING ON STACK 
037240 012201 MOV (R2)+,R1 ::PICKUP THE BINARY NUMBER 
037242 012202 MOV (R2)+.R2 
037244 012737 000012 037320 MOV #10.,4$ ::SET UP TO DO 10 CONVERSIONS 
037252 012704 037332 MOV ASTNPUR,R4 ADDRESS OF TEN POWER 
037256 012705 037334 MOV #STNPWR4+2,R5 
037262 005003 1$: CLR R3 z:CLEAR PARTIAL 
37264 161401 2$: SUB (R4),R1 *:SUBTRACT TEN POWER 
037246 005602 SBC R 
037270 161502 SUB (R5) ,R2 
037272 00240 BLT 3$ ::BR IF TEN POWER TO LARGE 
037274 00520 INC R3 - *:ADD 1 TO PARTIAL 
037276 000772 BR 23 LOOP 
062401 3$: ADD (R4)+,R1 S:RESTORE SUBTRACTED VALUE 
037302 005502 ADC R2 
06240 ADD (R4)+,R2 
037306 02252 CMP (R5)+,(R5)+ s:MOVE TO NEXT TEN POWER 
037310 052703 000060 BIS #°0,R3 S: CHANGE PARTIAL TO ASCII 
037314 110320 MOVB —R3, (RO) + T:SAVE IT 
037316 005327 DEC (PC)+ 3 DONE? 
037320 900000 4$: . WORD 
037322 00135 BNE 1$ 33 
037324 10502 CLRB  —s- (RO) + +: TERMINATOR 
037326 10441 RESREG S:RESTORE REGISTERS 
037330 000207 RTS PC  :RETURN 
037332 7145000 STNPWR: 145000 7:1.0E09 
037334 035632 35632 
037336 160400 160400 121.0608 
037340 002765 2765 
037342 113200 113200 221.007 
7344 000230 230 
037346 041100 041100 121.0606 
037350 000017 17 
037352 103240 103240 221.0605 
037354 1 1 
037365 § eh 23420 221.004 
037362 001750 1750 2:1.0€03 
037364 000000 0 
037366 000144 144 221.0E02 


noe 





¢ 14 

CZRNAAO RMBO PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 49-1 SEQ 0171 ¢ 
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE $ 

037372 000012 12 331.0601 

03/374 900000 9 

037376 000001 1 31.0600 

037409 000000 0 

037402 SDECVL: .BLKB 12. ;sRESERVE STORAGE FOR ASCIZ STRING 


a) 


037416 


037520 


RAIN 


aed Sao 
S& 


Soooce— 
oO 


S 
S 


Soa 
Row 
QRVGNS 
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DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


~SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


000014 
177770 


000002 


000060 


2(SP) ,R1 
#SOCTVL+13..R5 





SEQ 0172 


FRARAARAAERAERAARARRAEAEEARERARERRAREARRRAERRRRARERERERRRAERRERES 


SRTHIS ROUTINE WJLL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
ot hel OCTAL ASCIZ NUMBER. 


7zPOINTER TO LOW WORD OF BINARY NUMBER 
33CALL THE ROUTINE 
z3THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 


33 SAVE ALL REGISTERS 
sPICKUP THE POINTER TO LOW WORD 
POINTER TO DATA TABLE 
O ELEVEN CHARACTERS 


CHARACTER 
33BR IF NOT THE LAST DIGIT 
7:BR IF IT IS THE LAST DIGIT 
3 ALL DIGITS DONE-ADJUST POINTER FOR FIRST 
3A CHAR. T_IT ON THE STACK 
S IRESTORE ALL REGISTERS 
+ ¢RETURN TO_USER 
POSITION THE MASK FOR THE LAST DIGIT 
3 POSITION THE BINARY ER FOR 
3 THE NEXT OCTAL DIGIT 


3 sMASK OUT ALL JUNK 

;;MAKE THIS CHAR. ASCII 
7:60 PUT IT IN THE *DATA TABLE 
3RESERVE DATA TABLE 





Arm 
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POWER ROUTINES 


DOWN AND UP 
-SBTTL POWER DOWN AND UP ROUTINES 


© RERRAERRRERERREREREEEAEREEEAEAEAEEREEAEAARRREREEEREREREREERERERERE 


R DOWN ROUTINE 

037556 012737 037710 000024 jboweR MOV rub aFPURVEC 28 ser FOR FAST UP 
037544 012737 000340 000026 MOV #34 OFPURVEC z3BR 0:7 

037552 010046 MOV ARO ON STACK 
037554 010146 MOV Spee} aay SH R1 ON STACK 
037556 010246 MOV R2,-(SP) PUSH R2 ON STACK 
037560 010 MOV R3,-(SP) +: 

037562 B1peee MOV R4,-(SP) ss 4 ON STACK 
037564 010546 MOV R5,-(SP) :2PUSH RS ON STACK 
0375 017746 141362 MOV asur,-(SP) 33 STACK 
037572 010637 037714 MOV SP, $SAVR6 SSAVE SP 

037576 012737 037610 000024 MOV WSPWRUP ,a#PWRVEC :;SET UP VECTOR 
0 000000 HALT 

037606 000776 BR 72 ::HANG UP 


© RAAAAAAKAAAAEAAEEAARRARERAEERAAAREREAEREERERARRERAAKEEARAAEKEREREEEKE 
“POWER UP ROUTINE 
037610 012737 037710 000024 $PURUP: MOV #SILLUP ,@APWRVEC :;SET FOR FAST DOWN 


037616 013706 037714 MOV SSAVR6, SP 33GET S 
037622 005037 037714 CLR SSAVR6 WAIT LOOP FOR THE TTY 
037626 005237 037714 1$: INC SSAVR6 WAIT FOR THE INC 
037632 001375 BNE 1$ [OF WORD 
7634 005337 037716 2$: DEC PWRFLG WAIT AND SET POWER FAIL FLAG 
037640 003775 BLE ‘WAIT FOR FLAG= 1 
037642 012677 141306 MOV (SP)+,aSWR :;POP STACK INTO aSwR 
037646 012605 MOV (SP)+,R5 *:POP STACK INTO R5 
037650 012604 MOV (SP)+.R4 ::POP STACK INTO R& 
037652 012603 MOV (SP)+,R3 ::POP STACK INTO R3 
037654 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
037656 012601 MOV (SP)+,R1 3POP STACK INTO RI 
037660 012600 MOV (SP)+-RO *POP STACK INTO RO 
37662 012737 037536 000024 MOV #SPURDN, @#PWRVEC =; SET ‘a THE POWER DOWN VECTOR 
037670 012737 000340 000026 MOV #340 aePURVEC?D :IPRIO 
037676 104401 TYPE 33REPORT THE POWER FAILURE 
37700 037720 SPWRMG: .WORD S$POWER POWER “FALL MESSAGE POINTER 
037702 012716 MOV (PC)+, (SP) *TRESTAR T SATPOW 
037704 037736 SPWRAD: .WORD SATPOW : RESTART ADDRESS 
037706 000002 RTI 
037710 000000 SILLUP: HALT 22 THE POWER UP SEQUENCE WAS STARTED 
037712 000776 BR 72 * BEFORE THE POWER DOWN WAS COMPLETE 
037714 000000 SSAVR6: 0 *PUT THE SP HER 
2 037716 000000 PWRFLG: .WORD 0 cin NDICATES POWER FAIL OCCURRED WHEN SET 
; 037720 200 042 120 SPOWER: "ASCIZ <CRLF>/"POWER UP"/<CRLF> 
5 
é POWER UP ROUTINE ,WAIT TWO MINUTES, 
i THEN AUTO STARTS AT SIZMEM 
9 037736 005227 000000 SATPOW: INC #0 sTTY LOOP, WAIT FOR INCREMENT 
10 037742 001375 4 70 
11 037744 000005 RESET :CLEAR I THE WORLD 
le 0377 905037 001350 CLR SECOND “RESET SECOND COUNT 
13 03775 5037 0014 CLR INTRVL#2 SRESET THE INTERVAL COUNT 
14 037756 005037 177776 CLR PS [CLEAR PSW 


Amr 
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POWER DOWN AND UP ROUTINES 
15 03776 0127 11 MOV #STACK,SP :SETUP STACK POINTER 
16 0377 7 33 $ JSR PC, $TKINT SMAKE SURE KEYBOARD INTERRUPT AND 
17 037 004737 0234 JSR PC, CKCLK :SYSTEM CLOCK ARE STILL 
18 037776 9050 7 01340 CLR CFLAG [CLEAR THE ‘CONTROL ct L EEAG 
19 040002 105737 00154 TST8 = ASNLST SANY DRIVES ASSIGNED ? 
20 940006 001414 BEQ 2s ‘BR IF NO 
1 040010 104401 077406 TYPE ,MSWAIT [TYPE "WAITING 2 MINUTES. . .T0 START® 
: 040014 005737 001340 1$: TST FLAG 3 CONTROL C INTERRUPT 
0400 991007 BNE $ F YES 
4 040022 0 te? 001466 000002 CMP INTRVL*#2 #2 ‘TWO MINUTES YET ? 
5 0400 1 BLT SWAIT IF 
6 0400 12737 000400 001336 MOV #400, CHGADR ‘FUDGE 200 STAR 
040040 012705 001520 2s: MOV #ORDERQ,RS [CLEAR UP THE RUE AND BUFFER 
8 040044 00 028 $: CLR (R5)+ 
3 940046 022705 002056 CMP #BLKADRRS ZALL DONE ? 
040052 001374 BNE 3 *BRANCH IF NOT 
1 040054 000737 005024 JMP SIZMEM ‘LOOP BACK 





CZRNAA 
TRAP DECODER 
1 
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000002 


040114 


000004 000002 


-SBTTL TRAP DECODER 


FRRAAAAAARAAARRAAAARARERAARERARAREERERRAERAREARERERERRAAEERARERES 


3STHIS ie WILL PICKUP THE LOWER BYTE OF 3 
USE TO | H TH 


nanan, INSTRUCTION 


STARTING ADDRESS 


3 *AND ND GH THE T TABLE FOR THE 
3 #0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
3*GO0 TO THAT ROUTINE. 


STRAP: MOV 
MO 


MO 
RTS 


RO,-(SP) 

2(SP) ,RO 
=(RO) 

(RO) ,RO 

RO 

STRPAD(RO) ,RC 

RO 


3SAVE_RO 
IGE TRAP meee 


sBACK 
SiGer RIGHT BYTE OF TRAP 


2sPOSIT ION FOR INDEX 
s INDEX TO TABLE 
3:60 TO ROUTINE 


zzTHIS IS USE TO HANDLE THE ‘GETPRI*’ MACRO 


STRAP2: MOV 
MOV 


(SP) ,=(SP) 
4(SP) ,2(SP) 


-SBTTL TRAP TABLE 


s*THIS TABLE CONTAINS * STARTING ADDRESSES OF THE ROUTINES CALLED 
7*BY THE "'TRAP’’ INSTRUCTION. 


3 ROUTINE 


STRPAD: .WOR 


LY 
STERM=.-$TRPAD 


33 CALL=TYPOC 
23 CALL=TYPOS 
ALL=TYPON 


; + ECALL=TYPDS 


33 CALL=GTSWR 
33 CALL=CK SWR 


3sMOVE THE PC DOWN 
2 3MOV E THE PSW DOWN 
ssRESTORE THE PSW 


04402) TY 
04403) TYPE 


ee met cncch mea 


TRAPSS(1 405) 
TRAP+6 (104406) 


TRAP+7 (104407) 
T TTY 


10) 
12) 
133 
14) 


ING 


TTY TYPEOUT ROUTINE 

PE OCTAL NUMBER (WITH LEADING ZEROS) 
OCTAL NUMBER (NO LEADING ZERO 
404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 
GET SOFT-SWR SETTING 


TEST_FOR CHANGE IN SOFT-SWR 
TYPEIN CHARACTER ROUTINE 

TTY TYPEIN STRING ROUTINE 
VE RO-R5 pit 


SAVE R ave 
RESTORE RO-R5 ROUTINE 
ROUTINE TO TYPE OERROR MESSAGES 


SEQ 0175 


OS) 


-—0o 
~ 
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RAP TABLE 
7 
M4 
R .SBTTL SINGLE/DUAL PORT RH70/RM80 DRIVER (REV 0.17) 
sCOPYRIGHT (C) 1979,1981 
1 :DIGITAL EQUIPMENT T CORP. 
é MAYNAR 
SAUTHOR(S): CHUCK HESS 
s *REVISED BY: MIKE LEAVITT 
4] f ERRAAAAAAAAAARERAERARERERAARERARERARERRERRREEREEERRERERERREREEERE 
ig ZSTORAGE FOR RADS, RMER1 AND RMER2 ON AN ERROR ''2"° 
39 ;RMERRS ‘= RMDS 
40 SRMERRS+2 = RMERI 
41 TRMERRS*+4 = RMER2 
43 040146 000000 000000 000000 RMERRS: .WORD 0.0.0 
45 ;TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
46 :DRVACT IF DRIVE DLE 
47 SDRVACT>O IF DRIVE 1S ACTIVE WITH A COMMAND 
48 *DRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 
50 040154 000 DRVACT: .BYTE 0 :DRIVE 0 
53 040155 000 “BYTE 0 SDRIVE 1 
040156 000 “BYTE 0 DRIVE é 
040157 000 “BYTE 0 DRIVE 
0160 000 "BYTE 0 [DRIVE 4 
040161 000 “BYTE 0 SDRIVE 5 
0162 000 “BYTE 0 :DRIVE é 
* 040163 000 “BYTE DRIVE 
55 . «TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES) 
56 sDRVSTA=O IF DRIVE IS OFFLINE OR NONEXSITENT 
57 ‘DRVSTA>O IF DRIVE IS ONLINE 
rT *DRVSTA<O IF DRIVE IS UNSAFE 
040164 000 DRVSTA: .BYTE 0 :DRIVE 0 
63 040165 000 “BYTE 0 [DRIVE 1 
040166 000 “BYTE :DRIVE ; 
0401 000 "BYTE 0 DRIVE 
040170 000 “BYTE : “DRIVE 4 
040171 000 “BYTE SDRIVE 5 
04017 000 “BYTE : DRIVE é 
~ 04017 000 “BYTE DRIVE 
65 ;TABLE OF ppRIVE TYPES CORYTYP=8 BYTES) 
66 YP=0 IF DRIVE a (DRVSTA=0, ALSO) 
67 OV TYP= 1 IF DRIVE 
68 SDRVTYP==1 IF NOT 
040174 DRVTYP: .BYTE DRIVE 
ae BS of a | 
head 000 “BYTE DRIVE 3 


3 


NGLE/ 


RM8O PERF EXER MACRO V04.00 1 


DUAL PORT RH70/RM8 


83328333 S333 


S 


000 
000 
600 


000 
000 
000 
000 


95 040224 000000 


me ee ek ed ed ed ed ed ed ed sd ot 


RUNVASSS VEAL AVLOS 


040244 


040246 


000000 


000000 


000000 


DRIVER 


(REV 


4-JAN abe 15:16:58 PAGE 53-1 


0.17 


DPINT: 


DPRQS: 


QDRV: 


-BYTE 8 DRIVE 4 
-BYTE DRIVE 5 
-BYTE 3 DRIVE 
-BYTE DRIVE 

3 TABLE OF Rye PORT INITIALIZATION INDICATORS 

NT=0 IF INITIALIZATION IS 

DPINT<O IF INITIALIZATION IS 
-BYTE 0 DRIVE 0 
BYTE O DRIVE 1 
BYTE 0 DRIVE § 
BYTE O sDRIVE 
BYTE O sDRIVE 4 
-BYTE O sDRIVE 5 
BYTE O sDRIVE § 
BYTE 0 DRIVE 

3; TABLE OF speesea DUAL wy REQUESTS 

RQS=0 IF THAT A DUAL PORT REQUEST 

<p RaS<0 IF THAT A DUAL PORT REQUEST 
-BYTE 0O sDRIVE 0 
BYTE 0O sDRIVE 1 
BYTE 0O sDRIVE § 
BYTE 0 DRIVE 
BYTE 0O sDRIVE 4 
BYTE 0 DRIVE 5 
BYTE 0 DRIVE 6 
BYTE O DRIVE 7 

sDRIVE REQUEST QUE WORDS 
«WORD 0 DRIVE 0 
-WORD O sDRIVE 1 
-WORD 0 sDRIVE § 
-WORD 0 DRIVE 
-WORD OQ DRIVE 4 
-WORD 0O sDRIVE 5 
- WORD 8 DRIVE § 
WORD sDRIVE 


I 14 


NOT aie B x THE DRIVE 
IN PROGRES 


3 TRANSFER WAIT FLAG (TRNSWT=1 WORD) 
sTHIS IS E D QUEUE. I(T WILL CONTAIN THE ADDRESS OF 
3'DPB’’ OF THE 1/0 OPERATION. 


TRNSWT: 
3 SEARCH WAIT KEYS Ay ges. WORD) 


SRCHWT: 


0 


sTHIS IS A_ONE D Ons 
THE DRIVES THAT a“ PERFORMING A 


T THAT 


SEAR 
THE TOP OF THEIR REQUEST 


IS 
IS 


NOT PENDING FOR THAT DRIVE 
PENDING FOR THAT DRIVE 


THAT uit CONTAIN A KEY FOR ee OF 
CH ree FOR T 


HE 1/0 


N 
TEACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOD. FOR DRIVE 0. 


3RM DRIVER ACTIVE FLAG (ACTORV=1 BYTE) 


SEQ 0177 


1 
RF EXER MACRO V04.00 14 “2 Ke 15:16:58 PAGE 53-2 SEQ 0178 
T RH70/RM80 DRIVER (REV 0.17) 


EE 
Eg 
$3 


Amo 


flee IF 
sACTDRV> 


ACTDRV: .BYTE 0 


wn Hh asi ROUTINE ACTIVE FLAG (ACTSTR= 1 BYTE) 
=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE 
ACTSTRDO IF SOFTWARE TIMER ROUTINE IS ACTIVE 


ACTSTR: .BYTE 0 


zSAVE REGISTERS FLAG (SAVEFG =1 WORD) 
pti $< <0 IF SAVE THE yw REGISTERS WHEN THE 
OPERATION IS COMPLETED AS PER (DPB+ 
ZSAVEFG=0 IF SAVE THE RH/RM REGISTERS, AS PER 
3 (DPB+14), AFTER AN ERROR. 


SAVEFG: .WORD 0 
3 SEEK ‘ag * Se WORD) 
An IF WHEN THE DISK ADDRESS ISN*T IN THE WINDOW 
DATA_TRANSFER START A SEARCH C D 
eee KRGcO IF DATA TRANSFER WILL DO IMPLIED SEEKS, 
DISREGARD THE WINDOW 
177777 SEEKFG: .WORD -1 


TIMEOUT TABLE (TIMER=8 WORDS 
sTHIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


sDRIVE 0 
;DRIVE 


ot ot oo ot ot tt 5 


MMMNMNNNNN 2 — 


BARGALSSHNEARUO LS SBVEAEUN LS OMAN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


177777 TIMER: 


177777 SDRIVE 
zDATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD) 
zDTUW<O IF NO DATA TRANSFER RWAY 
[DTUW=4N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 


177777 DTUW: .WORD <1 
zATTENTION BITS TABLE (ATABIT=8 BYTES 
sTHIS TABLE SONTAINS THE CORRESPOND ING BIT TO EACH DRIVES 
ATTENTION BIT 
ATABIT: .BYTE 1,2,4,10,20,40,100,200 


sSTORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH70/RM80) 
SRMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)5. 


RMADR: .WORD 176700 
RMVEC: —_ $3°° 25*32. 
RHEXT: .WOR 


FR try rT ee 
BEARAVASSSVEGLUNLSS 


sOFFSET TO RMBAE 





3 


m 
=~ 


a ed ed ad nd ed 5 
BERALAVLSSELEALAVLSSSAVRAR A 


ee ed ed = ot ot ot 2 os = SS 


S 
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DUAL PORT RH70/RM80 DRIVER (REV 0.17) 
sSEARCH DIFFERENCE IS 5 FIVE SECTORS 
040320 000005 MXWNDW: .WORD 5 
:DEFINITIONS OF THE RH70/RM80 ADDRESS INDEXES 
000000 RMCS1 =0 sCONTROL AND STATUS REGISTER #1 eth REG. 0) 
000002 RMWC =2 [WORD COUNT REGISTER (NOT A DRIVE REG) 
000004 =4 ZUNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 
000006 A = 6 ZDESIRED TRK/SEC_ADDRESS REGISTER (DRIVE REG. 5) 
000010 RMCS2 = 10 ;CONTROL_AND STATUS REGISTER #2 (NOT A DRIVE REG) 
000012 Ss = 12 sDRIVE STATUS REGISTER (DRIVE REG 1) 
000014 RMERT == 14 sERR TER # RIVE REG. 2) 
000016 Ss = 16 ZATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 4) 
000020 RMLA = 20 sL AHEAD REGISTER (DRIVE REG. 
000022 RMDB = 22 antl BUFFER REGISTER (NOT A DRIVE REG.) 
000024 RMMRT == $e MAINTAINABILITY REGISTER #1 (DRIVE REG. 3) 
000026 RMDT = 26 3DRIVE TYPE REGISTER (DRIVE REG. 6) 
000030 RMSN = 30 IAL NUMBER REGISTER (DRIVE REG. 10) 
000032 RMOF = 32 SOFFSET REGISTER (DRIVE REG. 
000034 RMDC = 34 3 DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
000036 RMHR = 36 :' HOLDING REGISTER’ (DRIVE REG. 13) 
000040 RMMR2 == 40 : NANCE REGISTER #2 (DRIVE REG. 14) 
000042 RMER2 = 42 sERROR REGISTER #2 (DRIVE REG. 
000044 RMECT = 44 ; SITION REGISTER (DRIVE REG. 16) 
000046 RMEC2 = 46 sECC PATTERN REGISTER (DRIVE REG. 
000050 RMBAE = 50 ; ADDRESS EXTENTION REGIST 
000052 RMCSS = 52 CONTROL AND STATUS REGISTER #3 


“an 
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SINGLE/DUAL PORT RH70/RM80 DRIVER (REV 0.17) 


1 :RH70/RM8O DRIVER INITIALIZATION CODE 
é sTHIS ROUTINE WILL DETERMINE WHICH RM80 DRIVES ARE 
SAVAILABLE FOR Heer NG AND SET THE DRVSTA INDICATOR 

4 :TO THE PROPER STATE FOR EACH DRIVE. 

3 “NOTE: THIS ROUTINE CALLS DRVINT 

f CALL: 

9 : JSR PC,RMINIT 

19 ; RETURN 

1g [NOTE: THE 'P* OR ‘L" CLOCK MUST BE STARTED 
14 040322 104412 RMINIT: SAVREG E RO - RS 

15 040324 013746 177776 MOV a#PsS,-(SP) iSAVE THE PRESENT PROCESSOR STATUS 
16 040330 012737 000240 177776 MOV #<5%32.>,a#PS CHANGE THE PRIORITY TO 5 
17 040336 004737 045300 JSR PC, CLRQUE [CLEAR ALL REQUEST QUEUES 
18 040342 012701 040146 MOV ARMERRS ,R1 TFIRST ADDRESS TO BE CLEARED 
19 040346 012702 040254 MOV #SEEKFG, *R2 3LAST ADDRESS TO BE CLEARED 
20 040352 005021 1$: CLR AR 

21 040354 020102 CMP RILR2 TARE WE DONE? 

22 040356 101775 BLOS ~=s«1$ [BRANCH IF NO 

23 040360 012702 040276 MOV #DTUW,R2 [LAST ADDRESS 

24 040364 012721 177777 2$: MOV #-1,(R1)+ + INITIALIZE 

25 040370 020102 CMP R1,R2 * DONE? 

26 040372 101774 BLOS [LOOP IF 

27 040374 005037 040164 CLR DRVSTA [SET ALL DRIVES TO OFFLINE 
28 040400 005037 040166 CLR DRVSTA+2 

29 040404 005037 04 CLR DRVSTAtG 

30 040410 005037 040172 CLR DRVSTA+6 

31 040414 013703 040312 MOV RMVEC,R3 sSETUP THE RH70/RM80 VECTOR 
32 040420 012723 042452 MOV #ISR, (R3)+ 

33 040424 013713 040314 MOV RMVEC+2, (R3) 

34 040430 013704 040310 MOV RMADR,R4 :FIRST ADDRESS OF RH70/RM80 
35 040434 012764 000040 000010 MOV #40,RMCS2(R4)  :MASSBUS IN 

36 040442 005001 CLR R1 i START TH DRIVE 0 

37 040444 004037 040534 38: JSR RO, DRVINT dINIT THE DRIVE 

38 040450 000401 BR 4$ 

39 040452 000402 BR 5§ el RETURN 
40 040454 105061 040164 4$: CLRB - DRVSTA(R1) *SET DRIVE STATUS TO OFFLINE 
41 040460 005201 5$: INC R1 :G0 TO NEXT DRIVE 
4@ 040462 042701 177770 BIC #°C7,R1 *MASK OUT UNUSED 

040466 001366 BNE $ *BR IF MORE DRIVES TO GO 

44 040470 012701 000007 MOV —-—«#7R1 *START WITH DRIV 

45 040474 005037 177776 CLR aaPs ;CLEAR THE PROCESSOR STATUS 
46 040500 105761 040204 6S: TSTB  ——« DPINT(R1) {WAITING FOR DRIVE TO SWITCH PORTS ? 
47 040504 001405 BEQ 8$ BR NOT WAITING 
48 040506 004737 045226 JSR PC,SET.IE [SET INTERRUPT 
49 040512 105761 040204 7$: TSTB —« DPINT(R1) “DRIVE SWITCHED PORTS ? 

50 040516 001375 BNE 7$ BR IF NOT 

51 040520 005301 8$: DEC R1 60 TO THE NEXT DRIVE 

32 040522 100566 BPL 6$ SEHECK NEXT DRIVE 

53 040524 012637 177776 MOV (SP)+,aaPS REST ORE THE OR ROCESSOR STATUS 
54 040530 104413 RESREG TRESTORE RO = R5 

55 040532 000207 RTS PC ‘BYE-BYE 

57 ;DRIVE INITILIZATION ROUTINE 


owe Ped 
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SINGLE /DUAL PORT RH70/RM80 DRIVER (REV 0.17) 


63 3 CALL 


BLS 


010546 


2 040536 e's 2 040164 


000000 
010000 000010 
045226 


040164 1$: 
004000 000000 


044670 


000001 
020026 


024026 
177777 040174 


000121 2s: 
044750 


040174 


010000 
044750 


044670 


16164 040300 
044670 


000016 


S 

Ss 

m~ 

L—] 
Ses 
Ess 
RRR 


177777 040164 


DRVINT: 


M14 


SEQ 0181 

: THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS 

TAN RMBO. IF TAS. "READ-IN PRESET IS ISSUED AND FMT16 
[1S SET TO A ~ TH HEN MOL, DPR, DRY, AND VV ARE CHECKED TO 
S INSURE THEY A AND DEPENDING ON THEIR STATE, 
:DRVSTA IS Set TO THE PROPER CONDITION. 

MOV #DRVNUM,R1 :DRIVE NUMBER TO R1 

MOV RMADR,R4 SUNIBUS ADDRESS OF RH70/RM80 (RMCS1) 
JSR RO, DRVINT *CALLED BY 

RETURN1 ERROR OCCURRED ("NED") 

RETURN2 *NORMAL RETURN 

MOV R5,-(SP) :SAVE RS 

CLRB _- DRVSTA(R1) SSTART DRIVE STATUS AS OFFLINE 
CLRB DRVTYP(RI) [CLEAR THE DRIVE TYPE INDICATOR 

MOV RMCS2(R4) SELECT A DRIVE 

MOVB ai RACSt (RG) :D0 A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 

BIT WBITI2,RMCS2(R4) : PNONEX; STENT DRIVE? 

BEQ 1 ;NO=--BRANCH eae 

JSR PC,SET.IE 760 SET “IE'’ WITHOUT A ‘TRE 

BR 4$ SLEAVE THIS ROUTINE 

CLRB = DRVSTA(R1) *SET DRIVE STATUS TO OFFLINE 

BIT #BIT11,RMCS1(R4) ;SEE IF DRIVE AVAILABLE 

BEQ 4 sBR IF DRIVE NOT AVAILABLE 

JSR RO,RD.RM [CALL THE RE TI 

RMDT SREGISTER OFF 

5$ :"NED* RETURN 

MOV (SP)+,R5 :PUT DRIVE TYPE INR 

MOVB #1,DRVTYP(R1) :SET RM80 INDICATOR 

CMP #20026,R5 SIS ITA SINGLE PORT RM80? 

BEQ 2$ SBRANCH IF 

CMP #24026,R5 tI1S IT A DUAL PORT RM80? 

BEQ 2$ 7BR IF YES 

MOVE #-1,DRVTYP(R1) iSET INDICATOR TO "OTHER 

MOV #121,-(SP) *DO A “READ-IN PRESET’ 

JSR RO,WRT.RM [CALL THE WRITE ROUTINE 

RMCS1 GREGISTER OFFSET 

5$ "N ET 

MOV #B1T12,-(SP) SET FMT 16=1 

JSR RO,WRT .RM [CALL THE WRITE ROUTINE 

RMOF 3REGISTER OFFSET 

5$ "NED’ R 

JSR RO,RD.RM ‘CALL THE READ ROUTINE 

RMDS 3REGISTER OFFSET 

5$ "NED’ R 

MOV (SP)+,R5 {AND SAVE IT IN RS 

BPL *BRANCH IF ATA=0 

MOVB ATABIT(R1),RMAS(R4) :CLEAR ATTENTION BIT 

JSR RO,RD.RM :CALL THE READ ROUT INE 

RMER1 :REGISTER OFFSET 

5$ *"NED' RETURN 

ROL (SP)+ 21S IT UNSAFE? 

BPL ‘BR IF NOT 

MOVB  #-1,DRVSTA(R1) SET UNSAFE INDICATOR 

BR 4$ EXIT 
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SINGLE/DUAL PORT RH70/RM80 DRIVER (REV 0.17) Sli 

105 040754 005105 3$: COM RS -C DPR, DRY, AND VV 

106 04075 ean 167077 BIC fac cerri21e1r08:61107 81706» Ro 

107 040762 001003 BNE ANCH IF MO DRY, OR VV IS CLEAR 

108 040764 112761 000001 040164 MOVB #1,DRVSTA(R1) SET DRIVE nd BP *s ONLINE 

109 040772 005720 4$: TST (RO) + [STEP OVER THE ERROR Mant 

110 040774 012605 S$: MOV (SP)+,R5 SRESTORE RS 

111 040776 000200 RTS RO SEXIT 


B 15 
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SINGLE/DUAL PORT RH70/RM80 DRIVER (REV 0.17) 

1 REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 

5 CALL: 

5 ; JSR RO,RM80 CALL THE RM80 DRIVER 

6 : PNTADR sADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
7 : RETURN1 RETURN HERE IF QUEUE IS FULL 

8 3 RETURN2 RETURN HERE IF REQUEST IS IN QUEUE OR THERE 
10 z1S AN ERROR CONDITION 

11 041000 013746 177776 RM80: MOV @4PS ,-(SP) sSAVE THE CALLING STATUS 

12 041004 913737 040314 177776 MOV RMVEC+2,a#PS sDON'T ALLOW ANY RM80_ INTERRUPTS 

13 041012 112737 000001 040250 MOVB #1, ACTDRV. sSET “ACTIVE DRIVER’ FLAG 

14 041020 104412 SAVREG 3 RO-R 

15 041022 011002 MOV (RO) ,R2 PICKUP THE DRIVE PARAMETER BLOCK POINTER 
16 Be ides 005062 000016 CLR 16(R2) sCLEAR THE STATUS/ERROR INDICATOR 
17 0410 111201 MOVB R2) ,R1 zsPICKUP THE DRIVE NUMBER 

18 041032 013704 040310 MOV RMADR RS ZUNIBUS ADDRESS OF RMCS1 

19 041036 105761 040164 TSTB LRVSTACR1) sCHECK DRIVES STATUS 

20 041042 003011 BGT ; H IF ONLI 

21 041044 105761 040204 TSTB DPINT(R1) zTRYING TO INIT THE DRIVE 

22 041050 001027 BNE 3 
23 041052 004037 040534 JSR RO,DRVINT 3GO INIT. THE DRIVE 

24 041056 000421 BR ERROR RETURN 
25 041060 105761 040164 TSTB DRVSTACR1) 31S DRIVE STATUS ONLINE? 

26 041064 003432 BLE 3 

27 041066 105761 040214 1$: TST8 DPRQS(R1) sOUTSTANDING PORT REQUEST FOR THE DRIVE ? 
28 041072 001016 BNE 4 , 

29 041074 010164 000010 MOV R1,RMCS2(R4) sSELECT THE DRIVE 

30 041100 004037 045344 JSR RO, DRVQUE sPUT THIS REQUEST IN QUEUE 

31 041104 000445 BR ;QUEUE IS 

4 B51 198 105761 040154 2$: TSTB DRVACT(R1) z1S THIS DRIVE ACTIVE? 

3 041112 001037 BNE 7$ 3BR IF Y 

34 041114 004737 041236 JSR PC,OPT sCALL THE OPTIMIZER 

35 041120 000434 BR 

36 041122 004737 042334 3$: JSR PC,CI8 3:GO HANDLE THE ‘NED* 

37 041126 000431 BR 7$ 
38 041130 004037 045344 4$: JSR RO, DRVQUE PUT REQUEST IN QUEUE 

39 041134 000431 BR SQUEUVE IS FULL 
40 041136 032714 000100 BIT #B1T06, (R4) 21S ‘IE* SET ALREADY ? 
41 041142 001023 BNE ; F IT IS 
ri 041144 004737 045226 JSR PC,SET.IE 3SET INTERRUPT 

43 041150 000420 BR 7$ ZRETURN, REQUEST IN QUEUE 

rf: gol t3e Ag378) 040164 5$: isle alesis sSEE IF DRIVE OFFLINE OR UNSAFE 
46 041160 01 $15 140000 000016 MOV #B1T15!B1T14,16(R2) SET OFFLINE ERROR INDICATOR 
rt Oot 168 eth 3 040174 jis alae sSEE IF OFFLINE OR NONEXISTENT 
49 041174 Aare 100002 000016 MOV $31715!B1T01,16(Re) sREPORT DRIVE NONEXISTENT 

50 041202 0 BR 7$ 589 TO EXI 

51 041204 01 106 110000 000016 6$: MOV #81T15!B1T12,16(R2) DRIVE Js UNSAFE 

52 041212 10441 7$: RESREG sRESTORE RO - R 

53 041214 EN TST (RO) + SETUP FOR NORMAL RETURN 

54 041216 000401 $ FINISH UP, THEN ©. 

55 041220 104413 8$: RESREG RESTORE RO - RS 

56 Boiss 005720 9$: ST (RO)+ sCORRECT THE RETUP! RESS 

57 041224 105037 040250 CLRB ACTDRV SsCLEAR “‘ACTIVE PRIVE® ” FLAG 
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CZRNAAO RMBO PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 55-1 SEQ 0184 
SINGLE/DUAL PORT RH70/RM80 DRIVER (REV 0.17) 
58 041230 012637 177776 MOV (SP)+,aaPS ;RETURN "PS" TO USER LEVEL 
39 041 000200 RTS RO [RETURN TO CALLER 
61 sOPTIMIZER=CALLED FOR A PARTICULAR DRIVE 
$ CALL: 
64 : MOV #DRVNUM,R1 :DRIVE NUMBER TO R1 
69 : JSR PC,OPT :SETUP A COMMAND 
67 041236 104412 OPT:  SAVREG :SAVE RO = RS 
68 04124 015746 177776 MOV aAPS ,-(SP) *SAVE PROC. STATUS 
69 041244 004737 045366 JSR pC .GETREQ [GET ‘DPB’ POINTER OF REQUEST 
70 041250 005702 TST R [IS THERE A REQUEST IN QUEUE? 
71 041252 001510 BEQ 9$ ZNO=-BRANCH TO EXIT 
72 041254 032764 004000 000000 BIT #B1T11,RMCS1(R4) :IS DVA SET? 
73 041262 001407 BEQ $ :BRANCH IF NOT 
74 041264 032764 000100 000012 BIT WBIT6,RMDS(R4) IS WV SET ? 
75 041272 001003 BNE :BR IF IT IS 
76 041274 004037 040534 1S: JSR RO,DRVINT *SEE IF DRIVE STILL ONLINE ? 
77 041300 000473 BR :"DVA* NOT SET 
78 041302 105761 040164 2$: TSTB  - DRVSTA(R1) t1S DRIVE ONLINE? 
79 041306 003014 BGT TYES- CH 
80 041310 004737 045400 JSR PC ,POPQUE “NO=-REMOVE REQUEST FROM QUEUE 
81 041314 012762 140000 000016 MOV #B81T15!B1T14, 16(R2) *SET OFFLINE STATUS/ERROR INDICATOR 
82 041322 105761 040164 TSTB DRVSTACR1) s1S DRIVE UNSAFE ? 
83 041326 100067 10$ “BR TO EXIT IF NOT 
84 0413 012762 110000 000016 MOV #B1T15!B1T12,16(R2) *SET UNSAFE STATUS/ERROR INDICATOR 
85 041336 00046 BR 10$ :BRANCH TO EXIT 
86 041340 012746 000111 3$: MOV #111,-(SP) SLOAD COMMAND ONTO THE STACK 
87 041344 037 044750 JSR RO, WRT .RM *CALL THE WRITE ROUTINE 
041350 RMCS1 SREGISTER OFFSET 
041352 041470 8 *"NED’ RETURN 
88 041354 032714 004000 BIT #B1T11, (R4) *DRIVE AVAILABLE ? 
89 041360 00143 BE 7$ : NOT 
90 041362 122762 000150 000002 CMPB ss #150, 2(R2) t1$ THE REQUEST FOR 1/0? 
91 041370 00240 BLT YES H 
92 041372 004737 041756 JSR PC,C14 SCALL THE COMMAND INITIATOR 
93 041376 000443 BR 10$ : H TO EXIT 
94 041400 005737 040276 4$: TST DTUW [DATA TRANSFER UNDERWAY? 
95 041404 002015 BGE 6$ "YES==-GO START A SEARCH 
96 041406 136137 040300 040246 BITB  ATABIT(R1),SRCHWT :FINISHED A SEARCH ? 
97 061414 901005 BNE :1F NE, ¥ 
98 041416 005737 040254 TST SEEKFG [DO IMPLIED SEEKS? 
99 0414 100006 BPL 3 “IF PL DO A SEARCH 
100 041424 146137 040300 040246 5$: BICB  ATABIT(R1),SRCHWT sCLEAR ‘SEARCH WAIT’ KEY 
101 041432 004737 041516 JSR PC,CI1 sSTART A DATA TRANSFER 
108 041436 000423 BR 0 
103 04144 004737 041650 6$: JSR PC,C13 :START A SEARCH 
104 041444 000420 BR 10 *G0 TO THE EXIT 
105 041446 112761 177777 040214 7$: MOVB #-1,DPRQS(R1) :SET PORT REQUEST INDICATOR 
106 041454 010103 MOV R1,R3 SSET UP TO ADDRESS WORDS 
107 041456 303 ASL - slab, “CONVERT TO WORD INDEX 
108 0614 12763 035230 040256 MOV #15000: , TIMER(R3) : :START 15 SECOND TIMER 
110 0414 Oo4737 334 8$: JSR PC.C18 :PROCESS THE ‘NED' 
111 041474 O5e716 100 9$: BIT #B1T06, (R4) SSEE IF ‘IE" ALREADY SET 
112 041500 001002 BNE 19 ‘BR IF SET 
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pas Pd 


RNAAO_ RM8SO PER 
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RH70/RM8O DRIVER (REV 0.17) 
ey 945226 JSR PC,SET.IE 
126 7? 177 10$: MOV (SP) +, aaPS 
RESREG 
006307 RTS PC 
:COMMAND INITIATOR 
3CALL: 
: MOV #DRVNUM,R1 
: MOV #DPB,R2 
: JSR PC,CI? 
:START A DATA TRANSFER 
004737 045400 Cli: JSR PC ,POPQUE 
010237 040244 MOV R2, TRNSWT 
010203 MOV R2,R3 
013704 040310 MOV RMADR ,R4 
010164 000010 MOV R1,RMCS2(R4) 
062703 000004 ADD #4 RS 
062704 00000 ADD RG 
012324 MOV ite (R4)+ 
012324 MOV (R3)+, (R4)+ 
012346 MOV (R3)+,=(SP) 
004037 044750 JSR RO,WRT.RM 
RMDA 
0423 C18 
01234 MOV (R53) (SP) 
004037 044750 JSR 0,WRT.R 
000034 RMDC 
042334 C18 
004037 044670 - JSR RO,RD.RM 
000032 RMOF 
042334 C18 
042716 001000 BIC #B1T09, (SP) 
004037 044750 JSR RO,WRT.RM 
000032 RMOF 
042334 C18 
016246 000002 MOV 2(R2) ,=(SP) 
004037 044750 JSR RO,WRT.RM 
RMCS1 
B40137 040276 yoni pu 
000137 979878 JMP 5 
:START A SEARCH 
013704 040310 C13: MOV RG 
010164 000010 MOV R1,RMCS2(R4) 
016246 900012 MOV 1e(R2) = (SP) 
004037 044750 JSR RO,WRT.RM 
34 RMDC 
042334 C18 


3SET_"‘IE’* WITHOUT A “‘TRE*’ 
RESTORE PROC. STATUS 
RESTORE RO = R5 


sDRIVE NUMBER 
:ADDRESS OF DPB 
sC1? rnes C11,CI3, OR C14 


=DATA_TRANSFER 
=SEARCH REQUESTED BY DATA XFER 


C11 
3Cl2 
:CI4=NOT DATA TRANSFER 


3REMOVE ag SCTER “DRIVES WAIT’* QUEUE 
:PUT REQ. IN T a “1 te WAIT QUEUE 


OR AND TRACK 
ALL THE WRITE ROUTINE 

SREGISTER OF FFSET 

LOAD et ADDRESS 


CALL THE WRITE ROUTINE 
$REGISTER OFFSET 
3"NED’ R 


ZCALL_THE READ ROUTINE 
REGISTER OF FSET 


[CLEAR "SKIP SECTOR ERROR INHIBIT" 
3¢ TH OUTINE 


RETURN 
OAD *‘COMMAND+G0"", aa tes AND *'PSEL"* 


*CALL THE WRITE ROUTIN 
: R OFF SE 


RESS 
DRIVE 

YLINDER ADDRESS 
E WRITE ROUTINE 
R_OFFSET 


SEQ 0185 
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XER MACRO V04. 
70/RM80 DRIVER 


840320 


000037 


000061 


040246 


1$: 


C14: 


1$: 
2$: 


3$: 


4$: 


5$: 


00 a 15:16:58 PAGE 55-3 
(REV 0.17) 


15 


SEQ 0186 


MOVB = 10(R2),R3 :PICKUP SECTOR ADDRESS 
suB MXWNDW.R3 *BACKUP BY MAX. SEARCH FOR 1/0 WINDOW 
ADD #31. 83 
MOV R3,-(SP) :COMBINE THE ADJUSTED SECTOR WITH 
MOVB 11(R2),1(SP) § :THE DESIR Ck 
JSR RO, WRT .RM [CALL THE WRITE ROUTINE 
RMDA SREGISTE T 
C18 3 "NED* 
MOV #131,=(SP) ‘START A SEARCH 
JSR RO,WRT.RM SCALL THE WRITE RGUTINE 
RMCS1 SREGISTER OFFSET 
C18 :"NED* RETURN e 
BISB $ATABIT(R1),SRCHWT 3SET "SEARCH WAIT’ KEY 
BR C15 
yINITIATE A NON-1/0 OPERATION 
MOV RRS :RMCS1 ADDRESS 
MOV R1 sRMCSE(RG) SSELECT DRIVE 
MOVB 2(R2),R *PICKUP THE REQUESTED COMMAND 
CMS #131 RS [1S IT A SEARCH COMMAND? 
MOV 10(R2),-(SP)  :LOAD DESIRED TRACK & SECTOR 
JSR RO,WRT.RM *CALL THE WRITE ROUTINE 
RMDA “REGISTER OFFSET 
C18 :"NED® RETURN 
BR 2$ :60 LOAD CYLINDER 
CMPB ss #'105,,R3 [1S IT A SEEK COMMAND 
BNE ‘BRANCH IF NO 
MOV 12(R2),-(SP)  :LOAD DESIRED CYLINDER 
JSR RO,WRT.RM *CALL THE WRITE ROUTINE 
RMDC SREGISTER OFFSET 
C18 * "NED" RETURN 
BR 14$ ' = 
CAPS #115.R3 i1s IT AN “‘OFFSET’’ COMMAND? 
JSR RO,RD.RM [CALL THE READ ROUTINE 
RMOF SREGISTER OFFSET 
C18 *"NED® R 
MOVB = 1(R2), (SP) [BYTE WHEN LOADING THE REGISTER 
JSR RO,WRT.RM [CALL THE WRITE ROUTINE 
RAOF *REGISTER OFFSET 
cl sas :"NED* RETURN 
CMPBs«#107,,R3 z1S IT A “RECALIBRATE’’ COMMAND? 
BNE 5$ TIF NE, NO 
CLR =(SP) [CYLINDER ZERO 
JSR RO, WRT.RM *CALL THE WRITE ROUTINE 
RMDC *REGISTER OFFSET 
C18 *"NED® RET 
BR 14$ 3 CONTINUE, 3 
CMPBs#'143,R3 71S IT A “SET FORMAT’’ COMMAND? 
BNE SBRANCH IF NO 
JSR RO,RD.RM [CALL THE READ ROUTINE 
RMOF SREGISTER OFFSET 
C18 :"NED* RET 
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0 V04.00 14-JAN-82 15:16:58 PAGE 55-4 
DRIVER (REV 0.17) 


1 000001 


MOVB 1<R2) 1(SP) sCOMBINE “FMT16","ECI","HCI", & "'SSEI" 
JSR WRT .RM [CALL THE WRITE ROUTINE 
RMOF SREGISTER E 
CI ED* RET 
BR 12$ a 

68: CMPB ss #'141,R3 sIS IT A “GET REGISTER’: COMMAND? 
BNE 10$ [BRANCH IF NO 

7$: MOV 6(R2) ,R3 [POINTS TO 1ST ADDRESS OF WHERE 

TO PUT THE REGISTER(S) 

MOVB 10(R2) .98 INIT. tH E INDEX FOR THE FIRST REG. 
MOVB  11(R2).R5 INDEX OF LAST REG. TO MOVE 

8$: JSR RO,RD.RM SREAD RM8O REGISTER 

9$: RACS1 SINDEX OF REE — READ 
MOV (SP>+, (R3)+ :GET THE CONTENTS OF RH70/RM80 REG. 
CMP 9$,R5 [LAST REG. BEEN READ? 
BEQ 128 [GET 
ADD #2,9$ 3 INCREASE THe INDEX BY 2 
BR 3LOOP=-MORE_T 2 

10$:  CMPB #145,R3 21S ITA SELECT DRIVE COMMAND? 
BEQ 12$ *BRANCH IF 


: 3 COMMAND 
JSR RO. WRT .RM 3CALL THE poe fh ROUT INE 
RMCS1 in ehS Re OF FSET 


c18 RET 
12$: JSR PC ,POPQUE sREMOVE REQ. FROM QUEUE 
BIS wBiT07,16(R2)  ;SET T T 


TST SAVEFG ; SAVE a RH70/RM80 REGISTERS? 
BPL 13$ BRANCH 
JSR PC,SVRH70 3 YES--GO TSAVE, THE REGISTERS 


13$: RTS PC RETURN T 
:START A NON-DATA TRANSFER OPERATION 





E COMMAND 
JSR RO.WRT.RM sCALL THE poe be ROUTINE 
RMCS1 REGISTER OFFSET 
C18 "NED’ RETURN 


3START THE COMMAND TIMER 
C15: ASL 


R1 
pre #10000. , TIMER(R1) sSET A 10 SECOND TIMER 


MOVB #1, DRVACT(R1) sSET THE DRIVE ACTIVE 
RTS PC sRETURN TO THE USER 


sPROCESS A NON-EXISTENT DRIVE 


C18:  SAVREG 3SAVE_RO = R5 
TSTB.  DRVACT(R1) 3DRIVE ACTIVE? 
BEQ {BRANCH IE = 
MOV —- TRNSWT.R2 ZGET THE TRANSFER WAIT’ QUEUE 
CMP sR}, DTUW :DID THIS DRIVE HAVE AN 1/0 IN PROGRESS? 
BEQ CH IF YES 
JSR PC. GETREG 3GET THE DPB POINTER 
1s: TST R QUEUE ENTRY FOR DRIVE ? 
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AER neo DRIVER (REV 0.17) : 
“STOP THE TI 


10000 6 
1 § hisee4 2$: : ! ; 
8136 sSET "DRIVE ACTIVE’’ TO IDLE 
0276 CMP qi -bTUe ‘iS ge ee SETUP FOR A TRANSFER 
177777 040276 V sRESET THE INDICATOR 
OA 0gss CLR sCLEAR THE TRANSFER QUEUE 
045332 3$: PC,EMPTYQ :CLEAR THE DRIVE'S QUEUE 
04 \$? DRVSTA(R sSET DRIVE TO OFFLINE 
8 174 DRVTYP(R sCLEAR THE DRIVE TYPE INDICATOR 
226 4$: PC,SET.IE SET "‘IE'’ WITHOUT ‘‘TRE'’ 


sRESTORE RO - R 
PC 3RETURN 


BEQ F NOT 
Vv s SET sgn NON“EXISTENT’ INDICATOR 
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RH70/ DRIVER (REV 0.17) 


Eg 
32 


"aon 


1 y INTERRUPT SERVICE ROUTINE 
§ 06 452 112737 000001 040250 ISR:  MOVB  #1,ACTDRV :SET “ACTIVE DRIVER’ FLAG 
4 042460 104412 SAVREG SAV - 
5 04 13704 040310 MOV RMADR RG sADDRESS OF RMCS1 
§ 0 4 13701 040276 MOV DTUW,R1 [GET "DATA TRANSFER UNDERWAY’ INDICATOR 
4 24 é BLT 1$ SBRANCH IF NO DATA TRANSFER UNDERWAY 
8 042474 0047 042514 JSR PC, 1D [CALL TRANSFER DONE 
9 042500 004737 043334 1$: JSR PC;SC *CALL SPECIAL CONDITIONS 
10 042504 104413 RESREG SRESTORE RO - 
11 04 506 105037 040250 CLRB_ ACTDRV [CLEAR ACTIVE DRIVER FLAG 
le 042512 000002 RTI [RETURN 
14 ; TRANSFER DONE ROUTINE 
16 042514 105061 040154 TD: CLRB —sDRVACT(R1) sSET DRIVE ACTIVE INDICATOR TO IDLE 
17 042520 012737 177777 040276 MOV #-1,DTUW ‘NO DATA TRANSFERS UNDERWAY 
18 042526 006 ASL R 
19 042530 012761 177777 040256 MOV #=1,TIMER(R1) CANCEL TIMEOUT 
20 042536 006201 ASR R1 
21 042540 01 702 040244 MOV TRNSWT ,R2 :GET ‘DPB’ ADDRESS FROM THE 
$$ 042544 005037 040244 CLR TRNSWT TRANSFER WAIT QUEUE--CLEAR QUEUE 
23 042550 052762 000200 000016 BIS #B1T07,16(R2) SET DONE 
34 042556 010164 000010 MOV R1,RMCS2(R4) SELECT THE DRIVE 
5 042 004037 044670 JSR RO.RD.RM *CALL THE READ ROUTINE 
042566 000000 RMCS1 SREGISTER OFFSET 
042570 042334 C18 :"NED* RETURN 
26 042572 006126 ROL (SP)+ 71S TRE=1 ? 
27 042574 100421 BMI $ 7BR IF YES 
28 042576 005737 040252 TST SAVEFG [SAVE THE RH70/RM80 REGISTERS? 
29 042602 100002 BPL : HI 
30 042604 004737 045062 JSR PC, SVRH70 SYES-=SAVE THE REGISTERS 
a 642610 004737 043246 1$: JSR PC.WC HK *SEE IF WRITE CHECK TO BE PUT IN QUEUE 
3 042614 004737 045366 JSR pC .GETREG *GET DPB POINTER 
34 042620 005702 TST R SENTRY FOR DRIVE ? 
5 042622 001403 BEG 2$ ‘BR IF NOT 
36 042624 004737 041236 . JSR PC,OPT [CALL OPTIMIZER 
40 0426. 909207 RTS C RE 
41 0426 012714 000113 2$: MOV #113, (R4) SRELEASE THE DRIVE 
4¢ 042636 000207 RTS PC [RETURN 
44 042640 38: 
042640 004037 044670 JSR RO,RD.RM :CALL THE READ ROUTINE 
04 RMER1 SREGISTER OFFSET 
04 646 O42 34 C18 | "NED® RETURN 
45 042650 032726 000600 BIT #B1T8!B1T7, (SP)+ 3SEE IF HCRC OR HCE ERRORS 
46 042654 901016 BNE 4$ ; YES 
47 042656 004037 044670 JSR RO,RD.RM *CALL THE READ ROUTINE 
042662 2 RMER2 SREGISTER OFFSET 
042664 04 34 C18 ?"NED*® RETURN 
48 04 666 3 26 000040 BIT #SSE, (SP)+ °SEE IF SKIP SECTOR ERROR 
49 042672 00140 BEQ SIF €Q, NO 
50 042674 037 044670 JSR RO,RD.RM CALL THE READ ROUTINE 
042700 2 RMOF ZREGISTER OFFSET 
51 64 he 63 736 001000 gle #SSEI, (SP)+ is PE INIBIT BIT ALREADY SET ? 
52 Ot5746 AT? BEQ SKIP TIF EQ, NO 
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PORT RH70/RM80 DRIVER (REV 0.17) 


eT ae] 






53 04 72 0527 2 1001 000016 4$: BIS #B81T15!B1T06, 16(R2) rie DATA, ERROR FLAG 
54 0407; 7 04 33 JSR PC, EMPTYQ s EMPTY DRI WAIT'’ QUEUE 
55 042724 0047 505 JSR PC. SVRH70 SAVE THE. PR yt REGISTERS 
56 0427 O1g716 040171 MOV eit (R4) “ISSUE A ‘DRI AR" 
60 042740 012714 000113 MOV #113, (R4) SISSUE A RELEASE TO THE DRIVE 
61 042744 000207 RTS PY RETURN 
es sSKIP SECTOR HANDLING ROUTINE 
65 042746 010137 040276 SKIP: MOV R1,DT Ws sLOAD ACTIVE DRIVE NUMBER 
66 042752 010237 040244 MOV R2, TRNSW SRESTORE TRANSFER FLAG 
67 042756 00306 000016 CLR Re TUS the) SCLEAR THE DRIVER STATUS 
68 042762 132762 000002 000002 BITB  #2,S$COMND(R2) 3SEE IF HEADER ORDER 
70 042770 00144 BEQ 4$° NO 
74 042772 004037 044670 JSR RO,RD.RM SCALL THE READ ROUTINE 
042776 34 RMDC REGISTER OFFSET 
OS 008 042334 C18 ["NED® R 
75 043002 012662 000012 MOV (SP)+,$CYL(R2) SAVE NEW STARTING CYLINDER ADDRESS 
76 043006 004037 044670 JSR RO,RD.RM [CALL THE READ ROUTINE 
043012 RMDA :REGISTER OFFSET 
043014 042334 C18 RETURN 
77 043016 O12 000010 MOV (SP)+,$SEC(R2) i SAVE NEW STARTING TRK/SEC ADDRESS 
78 043022 004037 044670 JSR RO,RD.RM *CALL THE READ ROUTINE 
043026 000002 RMWC REGISTER OFFSET 
043030 042334 C18 "NED* RETURN 
79 043032 012600 MOV (SP)+,RO <GET REMAINING WORD COUNT 
80 043034 001005 BNE [BR IF PARTIAL SECTOR LEFT 
82 043036 016200 000004 MOV SWCNT(R2),RO STARTING WORD COUNT 
BA IF RMWC WAS AT ZERO AFTER TRANSFER 
87 043042 162700 177376 1$: SUB #258. ,RO [FIND THE # NUMBER OF WORDS FOR LAST SECTOR 
88 043046 002775 BLT :BR IF NOT DONE YET 
89 043050 062700 177376 2s: ADD #258. ,RO SADD 1 SECTOR BACK 
90 043054 020027 177772 CMP RO, M6 21S WORD COUNT AT LEAST 6 ? 
91 043060 003402 BLE ‘BR IF YES 
2 043062 012700 177772 MOV tSET WORD COUNT TO 6 
93 043066 01 000004 3$: MOV RO. -SuCNT CR) *STORE NEW WORD COUNT IN DPB 
94 043072 01 000020 MOV RO.SWRDL(R2) | :STORE NEW WORD COUNT LENGTH IN DPB AND 
95 043076 005462 000020 NEG SOADL ver } [MAKE IT POSITIVE 
96 043102 016203 000006 MOV SBUF {ROD RS [STARTING BUFFER ADDRESS 
44 043106 000417 BR 5$ 
99 043110 4$: 
043110 004037 044670 JSR RO,RD.RM :CALL THE READ ROUTINE 
043114 2 RMWC :REGISTER pOEESeT 
043116 C18 :"NED* RETURN 
105 043120 166216 000004 SUB SUCNT(RZ) «(SP) 3 * CALCULA WATE THE NUMBER OF WORD TRANSFERED 
106 063124 042716 000377 BIC #377, (SP) “LEAVE ONLY SECTOR MULTIPLES 
107 0431 11603 MOV (SP)<R :COPY THE DIFFEREN cE 
108 04313 16 000004 ADD SUCNT (RZ), (SP) SNEW WORD COUNT 
109 043136 01 600 MOV (SP)+,R 3COPY THE WORD COUNT 
110 063140 20 ASL R “CONVERT WORD DIFFERENCE TO A BYTE DIFFERENCE 
111 043142 066203 000006 ADD F (R2) ,R3 “NEW BUFFER ADDRESS 
113 04 166 010 4 5$: MOV R3,-(SP) SBUFFER ADDRESS 
117 043150 004037 044750 JSR RO,.WRT.RM CALL THE WRITE ROUTINE 
043154 RMBA :REGISTER OFFSET 
04 156 04255 C18 S"NED® RETURN 
160 010046 MOV RO,~(SP) WOR 
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(REV 
RO,WRT.RM 3CALL THE WRITE ROUTINE 
$REGISTER OFFSET 
*NED' Aes 


#640111, (R4) TCLEAR T HE DRIVE 
RO,RD.RM ‘CALL THE READ ROUTINE 
REGISTER OFF SET 


#SSEI, (SP) SET THE INHIBIT BIT 
RO,WRT.RM THE WRITE ROUTINE 


REGISTER OF FSET 

3"NED* RETURN 
#1,$SSENB(R2) 3 INDICATE THAT SKIP SECTORING WAS ENABLED 
SCOMND (R2) ,=(SP) T THE ORIGINAL COMMAND 


RO CURT RA THE WRITE ROUTINE 
EREGISTER 0 FFSET 
"NED" RET 
PC tRET 
:FORCED WRITE CHECK ROUTINE 
WC.HK: i WRT CHK D0 WRITE CHECK ? 
cn #URTDAT.SCOMND (RZ), =m *LAST OPERATION A WRITE COMMAND ? 
1$: RO, DRVQUE 3PUT THE OPERATION IN THE QUEUE 
BR ZQUEUE IS FULL 
STATUS (R2) “CLEAR "DONE® BIT IN DPB 
SRMCS1(R2) -$P 2)  ;SAVE WRITE OPERATION CODE 
000034 y A SSAVE CYLINDER 
000032 MOV ssE 2) SPREVA(R2) SSAVE SECT D TRACK ADDRESSES 
000002 


OR AN 
CODE(R SCHANGE WRITE DATA TO WRITE CH CK 
2s ZYXD SCO ie) sCHANGE FUNCTION CODE TO WRITE CHECK 
sSPECIAL CONDITION ROUTINE 


SC: RMAS(R4) ,R3 READ ee 
BNE Y ‘ATA’ m SET 


CH IF 
RO,RD.RM CA LL THE READ ROUTIN 
aes ee an SET 


(SP)+ 31S “‘IE*'=1? 
1$ 7YES, NO DRIVES TO CHECK 


TREPORT AN ILLEGAL INTERRUPT 
3SET INTERRUPT ENABLE 


;RET 
PROCESS hs DRIVES THAT HAVE 
AN ATA'= 


000002 


1 
PC,SET.IE 
Pp 


=(SP) 
R3, (SP) 
#1,R3 


3PROCESS ALL DRIVES WITH “‘ATA’’ SET 


$(3: BIT R3, (SP) sATA=1? 
BNE sc§ : YES=-=BRANCH 
INC “MOVE TO THE NEXT DRIVE 
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001373 BNE $¢3 :BRANCH IF MORE TO CHECK? 
005726 TST (SP)+ ‘CLEAN OFF THE STACK 
000207 RTS PC SRETURN TO USER 

DETERMINE IF THE DRIVE WITH “‘ATA’ SET IS ACTIVE WITH A COMMAND 
105761 040206 ~ $C5: TSTB  DPINT(R1) j INITIALIZING THE DRIVE ? 
001402 BEQ 1$ 
000137 044012 JMP $C13 sPROLESS THE DRIVE 
105761 040214 1$: TSTB DPRQS(R1) REQUEST OUTSTANDING ? 
991402 BEQ 2$ T 
000137 044012 JMP $C13 START THE OUTSTANDING COMMAND 
105761 040154 2$: TSTB DRVACT(R1) Att VE ACTIVE ? 
001016 BNE $6 <BR IF ACTIVE 

sTHE DRIVE WAS NOT ACTIVE, FIND OUT WHY IT INTERRUPTED 
004737 043750 JSR PC,SC12 SAY VE RMDS, RMER1 AND RMER2 

ALSO DO A DRIVE Nt (DRVINT) 

105761 040204 TSTB —dDPINT(R1) TRYING T0 INIT I DRIVE ? 
001351 BNE $c4 ‘BR IF YES, CHECK NON MORE DRIVES 
052757 020000 040154 BIT #BITI3 RMERRS*6 SADDRESS PLUG CHANGED ? 
011605 3$: MOV (SP) RS *PICKUP (RMAS) BEFORE THE ERROR CALL: 
104002 EMT 2 “REPORT THE UNEXPECTED ATTENTION 
000742 a BR S$C4 :G0 CHECK FOR MORE ATA'S 
104005 EMT 5 zREPORT THE ADDRESS PLUG CHANGE 
000740 BR $C4 *CHECK FOR MORE DRIVES 

:THE DRIVE COMPLETED A NON-1/0 COMMAND 
006301 SC6: ASL R1 :SETUP TO ADDRESS WORDS 
012761 177777 040256 MOV #-1, TIMER(R1) 3ST OP THE TIME 
006201 ASR RI “RESTORE THE DRIVE ADDRESS 
004737 045366 JSR PC,GETREQ ‘GET THE DPB POINTER FROM THE QUEUE 
010164 000010 MOV R1.RMCS2(R4) :SELECT DRIVE 
004037 044670 JSR RO.RD.RM ‘CALL THE READ ROUTINE 
000012 RMDS 3REGISTER OFFSET 
043656 S$c8 "NED® RETURN 
011605 MOV (SP) RS AND PUT IT IN RS 
006126 ROL (SP)+ WAS THERE AN ERROR? 
100053 BPL $C11 7BR IF R 
004037 044670 JSR RO,RD.RM 'CALL THE READ ROUTINE 
000014 RMER1 REGISTER OFFSET 
043656 Sc ; ANED” sARETURN 
012605 MOV (SP)+,R5 SAVE IT RS 
004737 045062 JSR PC, SVRH70 AVE RH oF RMBO REGISTERS 
012746 000111 MOV #111,-(SP) TISSUE A DRIVE CLEAR 
004037 044750 JSR RO,WRT.RM ‘CALL THE WRITE ROUTINE 
900000 RMCS1 3REGISTER OFFSET 
043656 SC "NED* RETURN 
906105 ROL RS tWAS UNSAFE CONDITION =1? 
100404 BMI 1$ BRANCH YES 
052768 100240 000016 BIS #81115!81T07:B1Tb5, Mecho) s INFORM USER OF ERROR 
ears 100220 000016 1$: BIS #B1T15!B1T07!B1T04, 16(R2) s INFORM USER OF UNSAFE ERROR 
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32 043620 105061 940154 2$: CLRB DRVACT(R1) :SET DRIVE TO IDLE 
23 043624 737 43338 JSR EMPTY HE QUEUE 
224 943630 146137 040300 040246 BICB RTARIT (RID, “SRCHWT SCLEAR THE SEARCH WAIT FLAG 
225 04 012746 000113 MOV ;RELEAS OMMAN 
226 043642 004037 044750 JSR RO,WRT.RM [CALL THE WRITE ROUTINE 
043646 000000 RMCS1 ZREGISTER OFFSET 
043650 043656 $c8 :"NED® RETURN 
327 043652 000137 043404 JMP S$C4 “CHECK FOR MORE DRIVES 
$09 sISR "'NED' PROCESSOR 
231 043656 004737 045332 SC8: JSR PC,EMPTYQ ;CLEAR THE DRIVE'S QUEUE 
232 043662 004737 042334 JSR PC.C18 SPROCESS THE 'NED® 
933 043666 000137 043404 JMP scé SCHECK MORE DRIVES 
939 sNON=1/0 COMMAND TERMINATION ROUTINE 
237 043672 105061 040154 SC11:  CLRB  DRVACT(R1) :SET DRIVE IDLE 
338 043676 136137 040300 040246 BITB ATABIT(R1),SRCHWT :DOING GA -SEARCH OPERATION FOR 
240 043704 001012 BNE 1$ :BRANCH IF ves : 
241 043706 004737 045400 JSR PC ,POPQUE REMOVE REQUEST FROM QUEUE 
242 043712 052762 000200 000016 BIS #BiT07. 16(R2)  :SET "DONE'’ BIT 
243 043720 005737 040252 TST SAV SSAVE THE REGISTERS? 
244 043724 100002 BPL :BRANCH IF NO 
245 043726 004737 045062 JSR C,SVRH70 S==SAVE ALL OF THE RH70/RMBO REG'S 
246 043732 116164 040300 000016 1$: MOVB AS ABITCRI) rmascha) :CLEAR ATTENTION B 
247 043740 004737 041236 JSR PC,OPT A’ REQUEST 
48 043744 000137 043404 JMP scé <BHECK FOR MORE DRIVES 
250 sERROR PROCESSOR 
252 043750 010164 000010 $C12: MOV R1,RMCS2(R4) SELECT DRIVE 
253 043754 016437 000012 040146 MOV RMDS(R4) RMERRS + SAVE THEY OUR REGISTERS THAT 
254 043762 016437 000014 040150 MOV RMER1 (R45 ,RMERRS+2 sWILL TELL US SOMETHING 
255 043770 016437 000042 040152 MOV RMER2(R4) .RMER Ree 4 
256 043776 004037 040534 JSR RO,DRVINT sINIT. THE STATE OF THE DRIVE 
257 044002 000401 BR 1$ 3 TAKE ERROR EXIT 
258 044004 000207 RTS PC N 
259 044 005726 1$: TST (SP)+ *POP PC OFF OF THE STACK 
360 044010 000722 BR S$c8 :PROCESS THE PARITY ERROR 
362 :DUAL PORT REQUEST PROCESSOR 
264 044012 006301 $C13: ASL R1 :SETUP TO ADDRESS WORDS 
265 044014 012761 177777 040256 MOV #-1, TIMER(R1) 3STOP THE TIMER 
266 044022 006201 ASR R1 
267 044024 010164 000010 MOV R1,RMCS2(R4) *SELECT THE DRIVE 
044030 116164 040300 000016 MOVB ATABIT(RI) RMAS (R4) :CLEAR THE ATTENTION BIT 
269 044036 032714 004000 BIT R45 sDRIVE AVAILABLE ? 
270 044042 001006 BNE is *BR IF AVAILABLE 
271 044044 006301 ASL 
272 044046 012761 035230 040256 MOV #15000. TIMER(R1) :START 15 SECOND TIMER AGAIN 
273 044054 006201 ASR R1 
274 044056 000433 BR 3$ ZEXIT 
275 044060 105761 040204 1$: TSTB = DPINT(R1) S INITIALIZING THE DRIVE ? 
276 044064 001424 BEQ 2$ ‘BR IF NOT 
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377 044 105061 040204 CLRB — DPINT(R1) :CLEAR THE INIT INDICATOR 

78 04407 004037 040534 JSR RO,DRVINT :G0 INIT THE DRIVE 

279 044076 000240 NOP * DUMMY PARITY ERROR RETURN 

280 044100 105761 040164 TSTB  DRVSTA(R1) ZDRIVE ONLINE ? 

281 044104 003014 BGT 2$ ‘BR IF YES == START COMMAND 

282 044106 005702 TST R2 TQUEUE ENTRY FOR THE DRIVE 

283 044110 001416 BEQ 38 ‘BR IF NOT 

284 044112 004737 045366 JSR REQ “GET DPB ADDRESS 

285 044116 052762 140000 000016 BIS WBITi5 81714, 16¢R2) INFORM USER THAT DRIVE OFFLINE 

286 044124 004737 045062 . J PC,SVR vi? SAVE THE REG 

287 044130 004737 045332 JSR PC. EMPTYQ ‘SMPTY THE FP ouESt QUEUE 

288 044134 000404 BR 

289 044136 105061 040214 2$: CLRB —— DPRQS(R1) :CLEAR THE PORT REQUEST INDICATOR 

290 044142 004737 041236 JSR PC, OPT :START THE PENDING REQUEST 

291 044146 000137 043404 3$: JMP scé ‘PROCESS OTHER DRIVES 
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J :RNBO TIMER ROUTINE 
4 : MOV ATIME ,-(SP) yELASPED TIME IN MILLISECONDS ON THE STACK 
4 : JSR PC, RMTMR [CALL RM8O TIME ROUTINE 
6 044152 005737 040250 RMTMR: TST ACTDRV ICHECK “‘ACTDRV & ACTSTR’ 
7 044156 001030 BNE 4 Z1F NON ZERO EXIT 
8 044160 112737 000001 040257 MOVB  #1,ACTSTR SSET 'ACTSTR' 
9 044166 104412 SAVREG SSAVE RO = RS 
10 044170 005001 LR R1 ‘START WITH DRIVE 0 
11 044172 005003 CLR R3 
ig 044174 005763 040256 1$: TST TIMER(R3) z1S THE TIMER RUNNING? 
13 044200 002407 BLT 2$ [BRANCH IF 
14 044202 166663 000002 04025¢ SUB 2(SP),TIMER(R3) :COUNT THE INTERVAL 
15 044210 003003 BGT 2$ :BR IF NO SOFTWARE TIMEOUT 
16 044212 004737 044244 JSR PC,STO SCALL SOFTWARE TIMEOUT ROUTINE 
17 044216 000405 BR 3$ 'GO0 TO THE EXI 
18 044220 005201 2$: INC R1 :MOVE TO NEXT DRIVE 
19 044222 005723 TST (R3)+ 
20 044224 022701 000010 CMP 48. ,R1 :OUT OF DRIVES? 
21 044230 003361 BGT $ ‘BRANCH IF NO 
22 044232 104413 3$: RESREG SRESTORE RO-= RS 
23 044234 105037 040251 CLRB_ -ACTSTR [ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
24 044240 012616 4$: MOV (SP)+, (SP) SADJUST THE STACK 
33 044242 000207 RTS PC SRETURN 
7 zSOFTWARE TIMEOUT ROUTINE 
29 ZNOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
30 ; OR GREATER 
32 SCALL: STO 
33 : MOV ADRVNUM,R1 :DRIVE NUMBER 
34 : SR PC,STO CALL: 
MH : RETURN 
37 044244 010146 STO: MOV R1,-(SP) :SAVE R1 
38 044246 010346 MOV R3.-(SP) SSAVE R3 
39 044250 013704 040310 MOV ; [GET ADDRESS OF ''RMCS1" 
40 044254 010164 000010 MOV R1,RMCS2(R4) SELECT THE DRIVE 
41 044260 004037 044670 JSR RO.RD.RM [CALL THE READ ROUTINE 

044264 900012 RMDS SREGISTER OFFSET 

044266 044556 STOS  "NED* 
42 044270 1 3726 TSTB 0s (SP) + 21S 'DRY'=1? 
43 044272 1 BMI STO2 [BR IF YES | 
4 222509 108761 040204 $T01: TST DPINT(R1) ZTRYING TO INTIALIZE THE DRIVE ? 
46 044302 105761 040214 TSTB = DPROS(R1) ZOUTSTANDING PORT REQUEST FOR THE DRIVE ? 
7 044 001065 BNE T [BR IF YES 
48 04431 015702 040244 : MOV TRNSWT ,R2 [PICKUP TRANSFER WAIT QUEUE 
49 044314 2013 0276 CMP Ri .DTUM : TRANSFER UNDERWAY ON THIS DRIVE? 
51 044322 408 045306 JSR PC GETRE ger DPB ADDRESS 
52 044326 36768 11090 000016 1S: BIS #BIT 3181709, 16¢R ) -SET THE ERROR FLAGS 
3 EES BFeret oath coon aay, aL SPatcacne ME RII ISTE 
2¢ reer 105061 brse CLRB = DRVACT(R1) :DRIVE IS IDLE 
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56 044352 005001 CLR R1 sSTART WITH DRIVE 0 
57 044354 905003 CLR R3 
58 044356 004037 040534 2$: JSR RO, DRVINT INIT. THIS DRIVE 
59 04436 900473 BR ARITY ERROR RETL 
60 044 105761 040154 TSTB DRVACT(R1) ZDRIVE IDLE BEFORE THE INIT.? 
61 044370 001414 BEQ  YES=-BRANCH 
6¢ 044372 013702 040244 MOV TRNSWT ,R2 SGET TRANSFER WAIT QUEUE 
63 044376 023701 040276 CMP DTUW, RI *WAS THERE I/O ON THIS DRIVE? 
64 044402 001402 BEQ : YES=-BRANCH 
65 044404 004737 045366 JSR £GEI THE DPB POINTER FROM QUEUE 
66 044410 052762 100400 000016 3S: BIS mBiTi2 61108, 16(R ; INFORM USER OF INIT. 
67 044416 105061 040154 CLRB —DRVACT(R1) sSET DRIVE ACTIVE TO IDLE 
044422 012763 177777 040256 4$: MOV #-1 CT MER RS) :STOP THE TIMER 
69 044430 005723 TST (R35+ [UPDATE THE rf NDEX 
70 044432 005201 INC R1 ‘INCREMENT THE DRIVE NUMBER 
71 044434 022701 000010 CMP #8.,R1 SLAST DRIVE BEEN CHECKED? 
72 044440 003346 BGT 2$ *NO=-L 
73 044442 012737 W777 040276 MOV #~1,DTUW *NO DATA TRANSFERS UNDERWAY 
74 044450: 005037 040244 CLR TRNSWT [CLEAR TRANSFER WAIT QUEUE 
75 044454 004737 045300 JSR PC, CLRQUE [CLEAR ALL REQUEST QUEUES 
044460 000500 BR 9 :E 
77 044462 116405 000016 $702: MOVB  RMAS(R4),RS5 SREAD ATTENTION REG 
044466 136105 040300 BITB  ATABIT(R1),RS 31S ATTENTION FOR THIS DRIVE UP ? 
79 044472 001017 BNE T  YES=-BRANCH 
80 044474 105761 040204 TST8 = DPINT(R1) ; TRYING TO INTIALIZE THE DRIVE ? 
81 044500 001031 BNE STO F YES = DRIVE NOT ONL 
82 044502 105761 040214 TSTB DPRQS(R1) J OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
83 044506 001045 BNE $107 *BR IF Y RESPONSE TO REQUEST 
84 044510 020137 040276 CMP R1,DTUW “DATA TRANSFER UNDERWAY FOR THIS DRIVE 
85 044514 061267 BNE 101 [BR IF NO 
86 044516 004037 044670 JSR RO,RD.RM :CALL THE READ ROUTINE 
044528 000000 RMcs1 :REGISTER OFFSET 
044524 044556 $105 "NED* RETURN 
87 044526 105726 TSTB 3s (SP) + 
88 044530 100261 BPL ST01 :BR I "= 
89 044532 105761 040204 $103: TSTB DPINT(R1) SINITIALIZING THE DRIVE ? 
90 044536 001003 BNE $ BR N 
91 044540 105761 040214 TSTB  DPROS(R1) SPORT REQUEST PENDING ? 
3 4544 001446 BEG ‘BR IF 
93 044546 012763 177777 040256 1$: #-1,TIMER(R3)  :STOP THE TIMER 
94 044554 42 BR $109 : 
95 044556 004737 042334 $T05: JSR PC c18 :G0 HANDLE THE "NED’ 
96 044562 000437 BR STO 
97 044364 105061 940204 $106: CLRB  ODPINT(R1) ;CLEAR THE INITIALIZE INDICATOR 
98 044570 105061 040164 CLRB = DRVSTA(R1) SSET DRIVE OFFLINE 
99 044574 012763 177777 040256 MOV #-1,TIMER(R3)  :STOP THE TIMER 
100 044602 0047 7 045366 JSR PC, GETREQ 3GET THE DPB ADDRESS 
101 044 5702 TST “REQUEST IN QUEUE ? 
102 044610 001424 BEQ STO9 *BR IF NOT 
103 461 052768 140000 600016 Bis WBITISIBIT14, 16(R2) s INFORM THE USER DRIVE NOT AVAILABLE 
105 0446 Dieres 177777 040256 STO7: MOV #-1, TIMER(R3)  :STOP THE TIMER 
fl 4630 10 061 040214 CLRB = DPROS(R1) CLEAR PORT REQUEST INDICATOR 
107 044634 004737 045 JSR PC, GE TREG [GET DPB ADD 
108 04464 905702 TST R SQUEUE ENTRY FOR DRIVE ? 
109 04464 140 BEQ $T09 *BR IF NONE 
110 044644 012762 100004 000016 MOV #81T15!B1T2,16(R2) INFORM USER OF PORT REQUEST ERROR 


SEQ 0196 


Hy 
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0.17) 
$T08: JSR PC, EMPTY :CLEAR THE QUEUE FOR THE DRIVE 
JSR PC. SVRH70 SSAVE THE REGISTERS 
$T09: MOV (SP)+,R3 SRESTORE R3 
MOV (SP)+,R1 SRESTORE R1 
RTS PC RETURN 
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zROUTINE TO READ A RH70/RM80 REGISTER 


CALL: 
: RO,RD.RM 3GO READ A REGISTER 
sREG. INDEX FROM BASE 
ERROR ADDRESS--PROCESS ERROR STARTING 
SAT THIS ADD 
: CONTENTS OF REG. IS ON THE SiACK 


: HS -(SP) fd RO FOR RETURN 
10 044706 oRD.ADR FORM THE te a 
06 tROD* RD ADR USI NG_THE BASE AND INDEX 
whee o(PC)+ a cr OF THE RM80 


oo 


par Pry 
PRIW 
NN 


R : .WOR 0 
000002 MOV RD.WRD,2(SP) 
MOV RMADR,=- (SP) 
#RMCS2, (SP) 
#B1T1 *a(SP)+ 
RD.RMS 
(RO) + ‘ERROR “FREE RETUR 


ZEX 
ERROR EXIT 


NONININ)  t wi 
I OOO NANEWNBAOOCDNOUSWN— ~ 


aS 


sossce 


(RO) ,RO 
(SP)+, (SP) 
RO 


S 


sROUTINE TO WRITE A REGISTER 


DATA, =(SP) sDATA TO BE LOADED ON THE STACK 

0,WRT.RM THE ROUTINE TO LOAD (WRITE) THE REG. 
INDEX OF THE REGISTER TO BE LOADED 
ADDRESS TO ps TO IF "NED* ERROR 
TERROR FREE RETURN 


045030 3 2(SP) ,WRT.WD sSAVE THE WORD TO WRITE 
(SP) +, (SP) ZADJUST THE STACK 
(RO)+,WRT.AD 7GET INDEX OF REGISTER TO BE WRITTEN 
BRANCH IF NOT RAC 
045030 MPB #150,WRT WD 31S_THE COMMAND FOR DATA TRANSFERS? 
1$ 2YES--DON'T GET THE OLD Al6é & Al7, & PSEL 
RO,RD.RM 3CALL_THE READ ROUTINE 
stheDS RETURN 


THE COMMAND BEFORE SENDING TO THE 
THE RH70/RM8 


ra) 
26 
e7 
28 
29 
30 
31 
32 
33 
34 
35 
36 
38 


ooo 
par par part 
an 


sens 


Waa 
a 
wid 
NOOO 


#*C7, (SP) 
MOVB (SP)+, WRT .WD+1 
045032 : RMADR ,WRT.AD 3FORM THE ADDRESS S THE DISK REG. 
T.R1: (PC)+,a(PC)+ : ESIRED R 


z288 


xo 


oo 

Sas 

io 

mal 

S 

al 
~™N 


> FORMED HERE 
RMADR = (SP) ; ADDRESS ON THE STACK 
#RMCS2, (SP) Th HE ADDRESS OF RMCS2 
#BIT12,a(SP)+ CHECK THE "NED* 

WRT .R4 IF EQ, DRIVE IS PRESENT 


WAI Ss SS ES SS 


VRUNVSSEASSGERG 
SRRLRLRRRRRR R 





28 062036 
38 BP 2028 
é 

61 

$2 

63 

64 

65 

66 

67 045062 
68 045064 
69 045066 
70 045070 
71 045074 
72 045100 
73 045104 
74 045106 
75 045112 
76 045120 
77 045122 
78 045130 
79 045132 
80 045134 
81 045136 
82 045142 
83 045144 
84 045146 
85 045150 
86 045156 
87 045160 
88 045166 
89 045170 
91 045174 
92 045200 
93 045204 
94 045210 
95 Oh 2g ie 
96 045216 
97 045220 
98 045222 
102 045224 
103 

104 

105 
106 

107 

108 

109 
110 045226 
111 0628 
3 045234 
11 042578 
114 045242 
115 042508 
116 04525 
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DRIVER (REV 


00 14- 


AN-82 15:16:58 PAGE 58-1 


0. 17) 


WRT.R3: MOV 
BR 


WRT.R4: TST 
WRT.RS: RTS 


000022 
000010 


000046 
045142 


E 16 


Hg T 


HE "NED® EXIT 


ADJUST FOR ERROR FREE EXIT 


sROUTINE TO SAVE THE RH70/RM80 REGISTERS 


CALL: 


SVRH70: 


1$: 


7$: 


sROUTINE TO SET 
>CALL: 


SET.IE: 


JSR 
SAVREG 


RESREG 
R 


JSR 
RETURN 


#DPBADR , 82 
PC,SVRH70 


R2 
6$ 


RMADR ,R4 
(R2) ow” wae 


14(R2), 
6% 


3$ 
3$ ,ARMDB 


#81707 ,RMCS2(R4) 


(R3)+ 
RO,RD.RM 
0 


(SP)+, (R3)+ 
3$ ,ARMEC2 

{% 38 
PC,C18 


$CPUOP 
Seer O00. CSP) 


#30000, (SP)+ 
7$ 


RHEXT ,R 
(RG) +, con 
), ¢R3) 


PC 


3DPB_POINTER TO R2 
SAVE THE DRIVES REG'S 


3 SAVE 
# QUEUE 
3BR IF 


SELECT 

EXIT IF 
; COUNTER 
7REACHE 
3BR 


3BR IF 
sSTORE 


RO = R5 
ENTRY FOR THE DRIVE ? 
NONE 


DRIVE 


T_THE ERROR TABLE POINTER 
NO_ADDRESS 


& POINTER 
NOT BUFFER REGISTER ? 


e str ‘OR’ SET ? 
RMDB AS ZEROES 


T 
;READ THE SELECTED REGISTER 
INDEX 


sREGISTER 
3E 


STORE 


sLOAVE, 
sSEE 


SPOINT’ 


RETURN ADDRESS 
ie sistas CONTENTS 
3REACH ED THE END 


INCREMENT THE REGISTER INDEX 
; CONTINUE RE 


ie THE REGISTERS 


S TH 
K THE CPU (RH) TYPE 


Ym PU TYPE BITS 


TO RMBAE 
ZSTORE THE CONTENTS 


GET _RMCS 
ZRESTORE RO - RS 
RETURN 


THE INTERRUPT WITHOUT GETTING A ‘‘TRE"’ 


DRIVE NUMBER TO RI 


#DRVNUA,R1 
PC,SET.IE 


R4,-(SP) 


RMADR .R 
R1 RACSZ(R4) 


&R R4) .=(SP) 
itis, (SP) 


#81706, (R4) 


3 SAV VE R4 
; PICKUP 


3SELECT 


;RE 
ise ie me wa OF THE WORD READ 


ADJUST Ef 


ADDRESS OF RMCS1 
DRIVE 


Weer 


| 
a 


SEQ 0199 


2a et St YS SS Fa 
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SEQ 0200 


O RM80 PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 58-2 
E/DUAL PORT RH70/RM80 DRIVER (REV 0.17) 
17 045254 052764 010000 000010 BIT #81T12,RMCS2(R4) 51S ‘'NED''=1? 
18 045262 001002 BNE 7YES-- 
19 045264 005725 TST (SP) + SCLEAN OFF THE STACK 
20 045266 000402 BR oe 
A 043270 112664 000001 1$: MOVB (SP) +, 1(R4) ZCLEAR ‘TRE 
é 3674 01 2$: MOV (SP)+,R4 SRESTORE R4 
33 045276 000207 RTS sRETURN TO CALLER 
$3 sROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
27 CALL: 
38 : JSR PC, CLRQUE 
30 045300 104412 CLRQUE: SAVREG ZSAVE RO - RS 
31 045302 012702 040224 MOV #ODRV,R2 ‘QUEUE BASE ADDRESS 
37 049508 005022 CLR (R2)+ :CLEAR ENTRY 
045310 005022 CLR (R2)+ sCLEAR ENTRY 
045312 005022 CLR (R2)+ :CLEAR ENTRY 
045314 005022 CLR (R2)+ =CLEAR ENTRY 
045314 005022 CLR (R2)+ :CLEAR ENTRY 
045320 005022 CLR (R2)+ =CLEAR ENTRY 
045322 005022 CLR (R2)+ =CLEAR ENTRY 
045324 005022 CLR (R2)+ :CLEAR ENTRY 
139 045326 104413 RESREG SRESTORE RO - R5 
140 045330 000207 RTS PC 
14¢ ZEMPTY THE QUEUE SPECIFIED BY R1 
144 CALL: 
145 : MOV DRVNUM,R1 :DRIVE NUMBER TO R1 
18 ; JSR PC, EMPTYQ 
148 045332 006301 EMPTYQ: ASL R1 
149 045334 005061 040224 CLR QDRV(R1) ZCLEAR DRIVE QUEUE 
150 045340 006201 ASR R1 sRESTORE R1 
131 045342 000207 RTS PC 
138 sROUTINE TO PUT A REQUEST IN QUEUE 
155 CALL: 
156 3 MOV #DRVNUM,R1 :DRIVE NUMBER 
157 : MOV #DPB,R2 SADDRESS OF PARAMETER BLOCK 
158 ; JSR RO, DRVQUE :GO PUT REQUEST IN O 
159 : RETURN1 SRETURN HERE IF QUEUE IS FULL 
160 : RETURN2 *RETURN HERE IF REQUEST IS IN QUEUE 
162 045344 006301 DRVQUE: ASL R1 
163 045346 005761 040224 TST QDRV(R1) :TEST THE QUEUE ENTRY 
164 045352 001003 BNE TIF NE, QUEUE ENTRY ALREADY THERE 
165 045354 010261 040224 MOV R2, QDRV(R1) SADD THE QUEUE ENTRY 
166 045360 005720 TST (RO)+ STAKE RETURN 
167 045362 006201 1$: ASR R1. 
168 045364 000200 23: RTS RO :RETURN TO USER 
170 :ROUTINE TO GET THE 'DPB'’ ADDRESS OF NEXT REQUEST IN QUEUE 
172 CALL: 
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SINGLE/DUAL PORT RH70/RM80 DRIVER (REV 0.17) 

173 ; MOV = #DRVNUM_R1 {DRIVE NUMBER TO Rt 

174 3 JSR PC, GETREQ :60 SET INE RE QUEST 

175 ; RETURN DPB’ ADDRESS OF THE REQUEST 

176 ; ER2=0 IF NO REQUEST IN QUEUE 

178 045366 006301 GETREQ: ASL = RI ; 

179 045370 016102 040224 MOV  QDRV(R1),R2 = GET THE REQUEST 

180 045374 006201 ASR RT : 

181 045576 000207 RTS = PC ;RETURN 

185 ROUTINE TO “POP'’ THE REQUEST FROM QUEUE 

185 3CALL: 

186 ; MOV —- #DRVNUM,R1 ;DRIVE_NUMBER TO R1 

187 3 JSR PC, POPQUE ZCALL TO REMOVE REQUEST 

188 ; RETURN ;RZ2=ADDRESS OF DPB REMOVED 

190 045400 006301 POPQUE: ASL —s 1 

191 045402 016102 040224 MOV  QDRV(R1),R2  —_: GET _THE QUEUE ENTRY 

192 045406 003061 040224 CLR —- QDRV(R1) CLEAR THE QUEUE 

193 045412 006201 AS R1 

194 045414 000207 RTS = PC RETURN TO USER 


H 16 
CZRNAAO RM80 PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 59 SEQ 0202 
DATA, CONTROL, & STATUS BLOCKS 


1 .SBTTL DATA, CONTROL, & STATUS BLOCKS 
5 :BLOCK LOCATION EQUATE STATEMENTS 
5 000001 SFMT = 1 :FMT,HCI,ECI OR OFFSET CODE 
5 00000: SCOMND = SFMT+1 SOPERATION CODE 
7 00000 SPSEL = SENT+e 3PORT setect Aa BITS S Als, A17 
8 000004 SWCNT = SFMT+ 
9 000006 UF = SFMT+5 ‘BUFF ER OEODR OR SREGISTER TABLE POINTER 
10 000010 SSEC = SFMT+7 i SECTOR ADDRESS OR 1ST REG A 
11 000011 STRK = $FMT+10 RACK ADDRESS OF LAST REG ADDR 
i 000012 SCY = $FMT+11 Ay NDER ADDR 
1 000014 SREG = $FMT+13 SREGISTER STORAGE (IF ERROR) 
1 000016 STATUS = SEMrsis SSTATUS WORD (SET BY DRIVER) 
1g ;DRIVE’S HISTORY AND CURRENT INDICATOR STORAGE EQUATES 
18 000020 SWRDL = SFMT+17 sWORD COUNT LENGTH (POSITIVE) 
19 000022 $SSEC = $WRDL+2 TSECTOR SIZE FOR CURRENT OPERATION (256. OR 258.) 
20 000024 SCODE = SWRDL+4 [PRESENT COMMAND SELECTION CODE 
21 000026 SPACK = SWRDL+6 SWRITE DATA PACK ik>!CATOR 
3¢ 000027 SPREVO = SWRDL+7 PREVIOUS COMMAND SELECTION CODE 
2 090030 SPATTC = $WRDL+10 3PATTERN CODE 
24 000032 SPREVA = $WRDL+12 PREVIOUS ADDRESS= TRK, SEC, CYL (DOUBLE WORD) 
25 000936 SENDAT = SWRDL+16 TEND OF PASS DATA COUNT (DOUBLE WORD) 
26 000042 NDSK = $WRDL+22 [END OF PASS SEEK COUNT (DOUBLE WORD) 
27 000046 SOPERC = SWRDL+26 [OPERATION COUNT (DOUBLE WORD) PER PASS 
28 000052 SIT = $WROL+32 :SEEK COUNT (DOUBLE WORD) 
29 000056 SWTOFL = SWRDL+36 STOTAL WORDS WRITTEN OVERFLOW COUNT 
30 000060 SWRITN = SWRDL+40 STOTAL WORDS WRITTEN COUNT (DOUBLE WORD) 
31 000064 SRDOFL = SWRDL+44 STOTAL WORDS READ OVERFLOW T 
32 000066 SREAD = SWRDL+46 [TOTAL WORDS READ COUNT (DOUBLE WORD) 
33 000072 STOTAL = $WRDL+52 [TOTAL ERRORS (ALL TYPES) COUNT 
3 000074 SSOFT = SWRDL+54 3'SOFT® ERROR COUNT 
cc 000076 SHARD = SWRDL+56 :*HARD® ERROR COUNT 
eA 000100 $SKI = $WRDL+60 *"SKI° ERROR COUNT 
37 000102 SMISPO = $WRDL+62 *PROG DETECTED MIS-POSITIONING ERROR COUNT 
38 000104 SPASSC = SWRDL+64 SPASS COUNTER 
39 000106 SFAIR = $WRDL+66 3 OPERATION QUEUE FAIRNESS" COUNT 
40 000110 SHLDWC = $WRDL+70 “HOLD WORD COUNT FOR "RELBUF* ROUTINE 
41 000112 SSSENB = SWRDL+72 *SKIP SECTOR INDICATOR 
45 s INDEX EQUATES TO THE NEXT OPERATION PARAMETERS 
45 000114 SNCODE = SWRDL+74 :NEXT OPERATION CODE 
46 000115 SNPATC = $NCODE+1 3NEXT P TTERN 
47 000116 SNSEC. = SNCODE+2 “NEXT SEC TOR 
48 000117 SNTRK = S$NCODE+ [NEXT TRACK 
49 900120 SNCYL = $NC OpE+% [NEXT CYLINDER 
50 000122 SNEXT = S$NCODE+6 *PARAMETER SELECTION INDICATOR 
31 000124 SFIRST = $NCODE+10 SFIRST OPERATION INDICATOR 
2 3 s INDEX EQUATES FOR MAXIMUM/MINIMUM ADDRESSES 
it) 00012 MAXCYL = SNCODE+12 :MAXIMUM CYLINDER ADDRESS 
5 00013 MINCYL = MAXCYL42 RIN CYLINDER ADDRESS 
5 000132 MAXTRK = MAXCYL+44 MAXIMUM TRACK ADDRESS 
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DATA, CONTROL, & STATUS BLOCKS 


MINTRK = MAXCYL+6 sMINIMUM TRACK ADDRESS 
MAXSEC = MAXCYL+10 sMAXIMUM SECTOR ADDRESS 
MINSEC = MAXCYL+12 sMINIMUM SECTOR ADDRESS 
sHDA SERIAL NUMBER CONTAINED IN DEC144 FILE 


SHSNL = = -~MAXCY!.+14 3LSB°S OF SERIAL NUMBER (DECIMAL) 
SHSNM = =_: SHSNL*2 3MSB°S OF SERIAL NUMBER (DECIMAL) 


3DEC144 BAD SECTOR ADDRESS STORAGE AREA INDEX EQUATE 

SBDSEC = SHSNL+4 : 3BAD SECTOR STORAGE TABLE PLUS TERMINATOR 
DRIVE (MBA) SERIAL NUMBER AREA INDEX EQUATE 

SDRVSN = SBDSEC+<126.*8.>+2 DRIVE (MBA) SERIAL NUMBER 

3RH/RM REGISTER EQUATES 

aa . ver 3RM REGISTER STORAGE 
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61 
es 
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66 
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69 
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72 
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75 
76 
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80 
81 
82 
83 
84 
85 
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87 
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89 
90 
91 
92 
93 
94 
95 
96 
98 
99 


AAIAIAAAAOOO 


;BLOCK 
DRIVEO: , sDRIVE NUMBER 0 


-BLK 

“WORD, +$RMCS1-SREG 

“BLKB  $RMCS3~SREG 
sBLOCK FOR DRIVE. 1 
bRIVE1: BYTE 1.0 ;DRIVE NUMBER 1 


5 
~WORD .+$RMCS1-SREG 
~BLKB $RMCS5-SREG 


*BLOCK FOR DRIVE 2 
002 DRIVE2: -BYTE 2-0 ZDRIVE NUMBER 2 


051772 
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CZR 

DATA, CONTROL, & STATUS BLOCKS 
052062 054206 
052064 


O3450e 003 000 
054276 056422 
054 


056476 004 000 


056500 
056512 060636 
056514 
060712 005 000 
060714 
060726 063052 
060730 
063126 006 000 
063130 
063142 065266 
063144 
065342 007 000 
065344 
065356 067502 
065 
114 
115 
116 
117 067556 000 
118 067557 000 
119 067560 000 
120 067561 000 
121 067562 177776 
122 067564 101174 
1235 067566 000 
124 067567 000 
125 067570 
166 067572 067576 
127 067574 
128 
129 067576 


eWORD .+$RMCS1-$REG 
“BLKB  $RMCS3=SREG 


sBLOCK on * peive 3 
DRIVES: 3,0 


“BLK Ku 
<WORD  .+$RMCS1-SREG 
“BLKB $RMCS3-SREG 


sBLOCK FOR DRIVE 4 
DRIVES: 0 fe 4,0 


» WORD SRMCS1-SREG 
-BLKB $RMCS3-SREG 


sBLOCK FOR DRIVE 5 
DRIVES: = 5.0 


L 
WORD .+$RMCS1-SREG 
“BLKB  $RMCS3~SREG 


sBLOCK FOR DRIVE 6 
ORIVE6: .BYTE 6,0 
~BLKW 


L 
WORD .+$RMCS1-SREG 
“BLKB  $RMCS3-SREG 
3BLOCK FOR DRIVE _7 
ORIVE7: .BYT 7,0 


LK 
“WORD .+$RMCS1-SREG 
“BLKB © $RMCS3-SREG 


SEQ 0204 


sDRIVE NUMBER 3 


sDRIVE NUMBER 4 


sDRIVE NUMBER 5 


sDRIVE NUMBER 6 


sDRIVE NUMBER 7 


GENERAL PURPOSE PARAMETER BLOCK 


GENDPB: .BYTE 


@ 
<< 
= 
m 
SaAGCSCoOO 1 Oooo 
<M 


GENREG: .BLKW 


NM 
rx 


DRIVER PARAMETER BLOCK, DRIVE # 
30FFSET VALUE OR FMT16, HCI OR ECI 


3 TRACK 

3CYLINDER ADDRESS 

;ADDRESS TO SAVE ALL RH/RM REG'S 
ZSTATUS WORD 


sREGISTER STORAGE 


RNAAO 
ERROR ME 


1 


ee eee 
WOONAULSWN =O OONAULSWN 


mu 
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21 070773 


37 072150 
38 072222 
39 072277 
40 072335 
41 072400 
42 072444 
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ERROR MESSAGES 
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/RH_CONTROLLER INTERRUPT OCCURRED (RMAS=0)/ 
/UNEXPECTED ATTENTION OCCURRED/ 
MASSBU ER M 


ADDRESS PLUG CHANGE BIT SET/ 

/RH CONTROLLER DIDN'T RESPOND TO ADDRESSING/ 
/UNCORRECTABLE MASSBUS PARITY ERROR/ 

/FATAL MASSBUS PARITY ERR 

/PERSISTENT DEVICE UNSAFE/ 

/OPERATION NOT COMPLETED WITHIN TIME LIMIT/ 
/DRIVE WENT OFFLINE/ 

/NO RESPONSE TO PORT REQUEST/ 

/HEADER CRC ERROR/ 

/DATA_CHECK (°DCK*) ERROR/ 

/WRITE CHECK ERROR = DATA CHECK (‘°DCK*) SET/ 
/WRITE CHECK ERROR = DATA CHECK (°DCK*) NOT SET/ 
/HEADER READ ERROR = ‘FMT’ BIT DROPPI 

/HEADER READ ERROR = HEADER COMPARE (*HCE*) ERROR/ 
/FORMAT ("FER")/ 


/HEADER COMPARE (‘HCE’) — 
/MISCELLANEOUS DRIVE ERROR/ 
/OPERATION CO ETS ("OPI") ERROR/ 
/DRIVE TIMING ("DTE*) ERROR/ 
/PARITY (°PAR*) ERROR AFTER OPERATION STARTED/ 
ITE CLOCK FAILURE ("WCF*) ERROR/ 
RESS AE*) ERROR/ 





/WRITE K RROR/ 
/DATA CHECK (*DCK") SET DURING WRITE CHECK COMMAND/ 
/RH CONTROLLER OR UNIBUS TRANSFER ERROR/ 

/BUS ADDRESS OR WORD COUNT INCORRECT/ 
/DATA_COMPARE ERRORS = NO OTHER ERROR(S) DETECTED/ 
/CAN'T MA PATT NOWN DATA PATTERN/ 
/ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH CONTROLLER/ 
/ECC LOGIC FAILURE = POSITION REGISTER VALUE NOT VALID/ 

/BUS ADDRESS AND WORD COUNT NOT C T/ 

/ECC LOGIC FAILURE = PATTERN REGISTER IS ZERO/ 

/SEEK_ INCOMPLETE (°SKI*) ERROR/ 

/PROGRAM DETECTED POSITIONING ERROR/ 

/ECH ERROR = UNCORRECTABLE ECC ERROR/ 

/DRIVE UNSAFE ERROR/ 
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ERROR MESSAGES 





1 re Hf 122 115 101 DH1: eASCIZ /RMAS/ 

§ 4 474 104 122 111 DH: eASCIZ /DRIVE RMDS RMER1 RMER2 RMMR2 RMAS/ 
72550 104 122 111 DHS: eASCIZ /DRIVE REG ADR D 

4 072576 104 122 111 DHS: eASCIZ /DRIVE REG ADR GOOD BAD/ 

5 072635 044 1s 115 DH6: eASCIZ /SRMADR/ 

6 072644 104 122 1s8 DH14: .ASCII /DRV RMCS1  RMCS2  RMDS RMER1 = / 

¢ 072710 122 115 11 eASCIZ /RMMR2 RMER2 RMEC1 RMEC2/<CRLF> 

8 072746 122 115 127 DHI5S ASCII = /RMWC RMBA RMDA RMAS RMLA 

9 075016 122 115 104 eASCIZ /RMDB RMMR1 = RMDT/<CRLF> 

10 073044 122 115 123 DH16: .ASCIZ /RMSN RMOF RMHR STATUS/<CRLF > 

1¢ 073114 122 115 102 yi eASCIZ /RMBAE RMCS3/<CRLF> 


B 
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ERROR MESSAGE 

1 073134 001 DT]:  .WORD ATTN,0 

¢ 073140 O01 0146 940150 DI: — WORD DRIVE -RMERRS .RMERRS+2 ,RMERRS+4 ,RMERRS +6 - ATTN. O 
073156 001 4 44710 DIS: WORD DRIVE.RD.ADR.RD.WRD, ) 

4 073166 001220 043032 045030 DT4: WORD OR. JE-WRT.AD,WRT.WD,RD.WRD,O 

5 073200 o01¢72 900000 DT6:  -WORD $RMADR, 

§ 075204 00¢14 150 02152 DTIG: WORD SRMCS1,SRMCS2,SRMDS, SRMER1 ,SRMMR2, SRMERZ, $RMEC1 , SRMEC2,0 
073226 00214 144 002146 DT15: WORD $RMWC,SRMBA,SRMDA,SRMAS, SRMLA, SRMDB, SRMMR1 ,SRMDT ,0 

8 br a5e 002170 00 he: 002174 Halt -WORD $RMSN,SRMOF ,SRMDC,.SRMHR,STATUS,0 

10 073264 002210 002212 000000 DT17: WORD  S$RMBAE,SRMCS3,0 
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/PRSNT COMMAND= / 
PR 


/ OMMAND= _/ 
- @* ERROR AT BAD TRACK/SECTOR@ 


/ERROR AT C/ 
/PRSNT ADDR= C/ 


/__PREV ADDR= C/ 

/START CYL= / 
END CYL= / 

/ Tha CYL= / 


/_ RMDC= / 


/ _RMWC= / 

/START TRK= / 

/START SEC= / 

/BUFFER ADDR= / 

/ WRD CNT= 

/ ACTUAL NMBR WRDS XFRD= / 


/EXPCTD DATA= / 
/ RECEVD DATA= / 


/ WORD POS= / 
/HEADER FROW ERROR SECTOR= / 
/RMEC1=_/ 


/ _RMEC2= / 

/SECTOR IS ECC CORRECTABLE / 
/SECTOR READ CORRECTLY / 
/CORRECTED ON / 


/ _RETRIES/ 
/UNCORRECTABLE AFTER / 
/_ TOTAL _MISPOS ERR= / 
/TOTAL SEEKS=: . 
TOTAL SKI ERR= / 
Abd 3 ERRORS: / 


/ — Hy pha 

/ WRDS READ:/ 

/ERROR DURING RETRY/ 

/DATA COMPARISON ERRORS/ 

EXPCTD RECEVD/<CRLF> 
ATA/<CRLF > 


/LOC DATA D 
/ RECEVD/<CRLF> 
/LOC <CRLF> 


DATA/ 
/TOTAL COMPARE ERRORS= / 
/THE DATA COMPARED OK/<CRLF> 
/ERROR BURST B 


AT WORD / 
/_IN DATA FIELD OF ERROR SECTOR/<CRLF> 
/ERROR WAS NOT IN THE DATA_READ = /<CRLF> 
/ECC CORRECTION CAN'T BE PERFORMED/ 


/ECC CORRECTION RESULTS/<CRLF> 


CORRECTED /<CRLF> 
/ADDR DATA DATA/<CRLF> 
(contents OF ERROR SECTOR (REPORTED ABOVE) /<CRLF> 


HEADER/<CRLF> 





A ria apa 





RNAAO SEQ 0209 
ROR MES 

61 O73 31 101 104 104 LINI1A: .ASCIZ /ADDR DATA/<CRLF> 

62 O73 040 BLNKS4: .ASCII / / 

6 5080 B68 Bar: ASCII / / 

64 bf 04 ASCII / / 

65 07 25 040 000 BLNKS1: .ASCIZ / / 

66 07 3536 122 105 124 LINXS5: .ASCIZ /RETRIEVED BY A RDHD COMMAND/ 
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j -SBTTL TELETYPE MESSAGES 
< 075272 077 000 QUES: .ASCIZ /2/ 
4 075274 075 000 EQUAL: .ASCIZ /=/ 
5 075276 054 000 COMMA: .ASCIZ /,/ 
6 075 055 000 DASH: .ASCIZ /=/ 
7 07530 011 1 TAB: eASCIZ <11> 
8 075304 104 12 111 UNTMSG: .ASCIZ /DRIVE/ 
9 07531 040 117 106 UNTOFF: .ASCIZ OFFLINE/ 
10 07532 040 117 116 UNTON: .ASCIZ. / ONLINE/ 
11 07533 040 116 117 UNTNOT: .ASCIZ / NOT BEING TESTED/ 
\¢ 075355 040 101 114 UNTASN: .ASCIZ / ALREADY BEING TESTED/ 
13 075403 040 116 117 TRM: .ASCIZ @ NOT AN 
14 075420 040 116 117 TPRS: .ASCIZ / MOT PRESENT/ 
15 075435 040 116 117 NOTAVL: .ASCIZ / NOT AVAILABLE/ 
16 075454 040 125 116 WNOTSAF: .ASCIZ / FE/ 
17 075464 040 114 117 LODEV: .ASCIZ / LOAD DEVICE/ 
18 075501 200 104 ioe SYSTAT: .ASCIZ <CRLF>/DRIVE STATUS:/ 
19 075520 122 115 07 0: .ASCIZ /RM80/ 
20 075525 200 012 O36 REPHD: .ASCIZ <CRLF><LF>/****% PERFORMANCE REPORT ****%*/ 
21 075566 052 052 052 STAR3O: .ASCI] /xeeeeneeeneaanaaaaanaanne/ 
22 075617 052 052 052 STARS: .ASCIZ /**%%%/<CRLF> 
23 075626 200 104 122 SUMHD: .ASCIZ <CRLF>/DRIVE SUMMARY, (OFLOW= 2,147,483,647.)/<CRLF> 
24 075700 007 077 106 OPNG: .ASCIZ <0O7>/?FATAL OR EXCESSIVE ERRORS/ 
25 075734 200 105 116 ENDPAS: .ASCIZ <CRLF>/END OF PASS #/ 
26 075753 040 117 116 GON: .ASCIZ / ON / 
27 075760 200 105 116 ENDTST: .ASCIZ <CRLF>/END OF TEST / 
28 075776 106 117 122 GF eASCIZ /FOR / 
29 076003 200 052 052 DEASSG: .ASCIZ <CRLF>/***** DRIVE DEASSIGNED/<CRLF> 
30 076034 200 052 052 DRNUM: .ASCIZ <CRLF>/s*e%* DRIVE #/ 
31 076053 040 123 124 ASGND eASCIZ / STARTED/ 
32 076064 200 007 077 WNEDCLK: .ASCIZ <CRLF><07>/? "L*® OR 'P*® CLOCK REQUIRED ON SYSTEM/<CRLF> 
33 076135 116 000 N: eASCIZ /N/ 
34 0761 131 000 Y: eASCIZ /Y/ 
35 076141 056 000 PERIOD: .ASCIZ /./ 
36 076143 040 077 103 MSWRO: .ASCIZ / ?CAN‘'T WRITE IN yo § ONLY MODE/<CRLF> 
7 076206 040 077 111 INVLD: .ASCIZ / 2?INVALID COMMAND/<CRLF> 
076231 200 105 116 ENTCOM: .ASCIZ <CRLF>/ENTER COMMAND: 
9 076252 200 105 116 ENTLMT: .ASCIZ <CRLF>/ENTER ADDRESS LIMITS:/<CRLF> 
0 076 200 105 116 ENTADR: .ASCIZ <CRLF>/ENTER BAD SECTR ADRS:/<CRLF> 
41 07633. 072 000 COLON: .ASCIZ /:/ 
42 076334 116 117 116 NONE: .ASCIZ /NONE/ 
43 076341 040 077 111 BADENT: .ASCIZ / 2INVALID ENTRY/<CRLF> 
076. 200 106 101 MERR1: .ASCIZ <CRLF>/FAILED TO RETRIEVE BAD SECTOR FILE(DEC144) ON / 
45 07644 200 111 116 MERR2: .ASCIZ <CRLF>/INVALID FILE(DEC144) STRUCTURE ON / 
076506 O36 040 102 MSFULL: .ASCIZ /* BAD SECTOR TABLE IS FULL */<CRLF> 
47 076544 10 131 114 MSGCTS: .ASCIZ /CYL,TRK,SEC= / 
48 076562 200 104 117 MESFE: .ASCIZ <CRLF>/DO YOU WISH TO EXERCISE ONLY FE CYLINDERS (L) Y ? / 
49 076646 101 12 105 SURE:  .ASCIZ /ARE Y (LIN? / 
50 076674 200 05 040 FEONLY: .ASCIZ Seal oes EXERCISER WILL OPERATE ON FE CYLINDERS ONLY */<CRLF> 
51 076036 td 00 OVRWRT: .ASCII <07><07> 
2 o76r 44 011 041 eASCII <CRLF>/ ! CUSTOMER DATA WILL BE OVERWRITTEN !/ 
54 or 70re 7 07 200 eASCIZ <07><07><CRLF><LF> 
55 07710 200 016 118 NODRVS: .ASCIZ <CRLF><LF>/NO DRIVES ASSIGNED/<CRLF> 
56 077131 00 12 122 MREAD: .ASCIZ <CRLF>/PROGRAM LOCKED IN ‘READ ONLY*’ MODE/<CRLF> 
57 077176 | 52 040 116 NOENTY: .ASCIZ /* NO ENTRIES */<CRLF> 
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58 1464) 104 193 LSTHDR: .ASCIZ <CRLF>/DEC144 AND MANUAL BAD SECTOR LIST/<CRLF> 
59 077 $8 040 101 ALOST: .ASCIZ /* ALL CURRENT ENTRIES LOST */<CRLF> 
60 077 § 11 19% 19 HDASN: .ASCIZ A S/N: . 
61 077 104 1 § 1 § DRVSN: .ASCIZ a@DRV S/N: 
$¢ 077344 4 10 110 MSPRM: .ASCIZ eCRLES/ CHANGE DRIVE PARAMETERS (L) N ? / 
or 7788 00 133 131 MSWAIT: .ASCII <CRLF>/TYPE “C T 
64 07742 127 101 eASCIZ <CRLF>/WAITING 2 MINUTES...TO START/<CRLF> 
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3 sPARAMETER ENTRY TABLE 
0774 77632 017400 001462 PARLST: 
& Srrcge 87786 ° 


«WORD PAR1,7936. ,WRDCNT 
7777 01464 “WORD PAR2 32767 INTRVL 
5 077502 77777 001470 "WORD PAR19, 32767. PASSES 
6 077510 07765 17 001472 "WORD PAR3,15.,PATTERN 
7 077516 077752 000001 001474 “WORD 1,1. RANDW 
8 077524 07776 7 901476. "WORD PAR14.7.RATIO 
9 077532 1 001500 “WORD ARG. 1 -ENDING 
10 077540 077772 000001 001502 WORD 15,1,WRTCHK 
11 077546 10002 1 001504 “WORD PAR20.1.MESSAGE 
i 077554 100032 000001 001506 “WORD PAR21.1.RANDOM 
13 077562 07774 1 001510 "WORD PAR10,1.BADBLK 
14 077570 000000 ;WORD 0 : TABLE TERMINATOR 
16 077572 040 057 040 SLASH: .ASCIZ @/a@ 
17 077576 200 103 110 ASKPAR: .ASCIZ <CRLF>/CHANGE PARAMETERS (L) N ? / 
18 077632 127 122 104 PARI:  .ASCIZ /WRDCNT / 
19 07764 111 116 124 PAR2: .ASCIZ /INTRVL / 
20 07765 120 101 124 PAR3: .ASCIZ /PATTERN/ 
21 07766 115 101 130 PAR4: .ASCIZ /MAXCYL / 
22 077672 115 111 116 PARS: .ASCIZ /MINCYL / 
+ 23 077702 115 101 130 PAR6:  .ASCIZ /MAXTRK / 
24 077712 115 111 116 PAR7: .ASCIZ /MINTRK / 
25 077722 115 101 130 PAR8: .ASCIZ /MAXSEC / 
077732 115 111 116 PAR9:  .ASCIZ /MINSEC / 
27 077742 102 101 104 PARIO: .ASCIZ LK / 
28 077752 122 101 116 PARI1: .ASCIZ wc / 
077762 122 101 124 PARI4: .ASCIZ T10. / 
30 077772 127 122 124 PARI5: .ASCIZ /WRTCHK / 
31 100002 105 116 104 PAR16: .ASCIZ /ENDING / 
32 100012 120 101 123 PARI9: .ASCIZ /PASSES / 
33 100022 115 105 123 PAR20: .ASCIZ /MESSAGE/ 
34 100052 122 101 116 PAR21: .ASCIZ 
36 EVEN 
38 sPARAMETER TABLE POINTERS FOR ADDRESS LIMITS 
39 100042 100062 TABLE: .WORD  TABLEO ;PARAMETER T. FOR DRIVE 0 
42 100044 100130 ; TABLE1 [PARAMETER TABLE FOR DRIVE 1 
100046 100176 “WORD. TABLE SPARAMETER TABLE FOR DRIVE é 
100050 100264 “WORD TABLE + PARAMETE DRIVE 
100052 100 312 “WORD TABLES *PARAMETER TABLE FOR DRIVE 4 
100054 100 “WORD TABLES [PARAMETER TABLE FOR DRIVE 5 
100056 100426 “WORD TABLE *PARAMETER TABLE FOR DRIVE : 
. 100060 100474 “WORD ‘TABLE?. [PARAMETER TABLE FOR DRIVE 
44 *PARAMETER TABLE FOR ADDRESS LIMITS 
54 100062 077672 000000 045546 TABLEO: .WORD  PARS,O,MINCYL4DRIVEO 
100070 077662 000000 045544 “WORD PARG.O. L+DRIVE 
100076 077712 000000 045552 “WORD PAR7,0,.MINTRK+DRIVE 
100104 07770 045550 “WORD PAR6.0.MAXTRK+DRIVE 
100112 7773 itr 045556 “WORD PAR. 6. .RINSEC*DRIVE 
100120 077722 000036 045554 “WORD PAR8, 30. ,MAXSEC*DRIVE 
100126 000000 “WORD 0 : TERMINAT 
100130 077672 000000 047762 TABLE1: .WORD PARS,O,MINCYL+DRIVE1 
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! 
' 
1001 0 047760 «WORD PARG,O,MAXCYL*DRIVE1 ‘ 
ota tad 47766 -WORD PAR7,0,MINTRK*DRIVE1 { 
100152 pace »WORD PARS, MAXTRK+DRIVE1 ; 
100160 0000 77 “WORD PAR9. 30. ,MINSEC+DRIVE1 
100166 000036 04777 “WORD PARS. 30. .MAXSEC+DRIVE1 
100174 “WORD 0 ; TERMINATOR } 
100176 000000 052176 TABLE2: .WORD PARS,O,MINCYL+DRIVE ‘ 
100204 000000 052174 “WORD PAR4.0.MAXCYL*#DRIVE | 
100212 000000 0¢202 _ TWORD PAR7.0.MINTRK+DRIVE 
100220 000000 052200 “WORD PARG,0 MAXTRK+DRIVE { 
100226 000036 052606 “WORD PAR, 30. ,MINSEL *DRIVE2 
100234 000036 052204 “WORD PAR8. 30. ,MAXSEC4DRIV | 
100242 “WORD 0 ; TERMINAT } 
100244 077672 000000 054412 TABLE3: .WORD PARS.O.MINCYL+DRIVE3 : 
100252 077662 000000 054410 “WORD PAR4,0,MAXCYL*DRIVES } 
100260 0 000000 054416 ;WORD PAR7,0.MINTRK+DRIVES } 
100266 077702 000000 054414 “WORD PAR6.0,MAXTRK+DRIVES } 
100274 077732 000036 054422 WORD PAR9,30. ,MINSEC*DRIVE3 } 
100302 077722 000036 054420 “WORD PAR. 30. .MAXSEC4DRIVES } 
100310 “WORD 0 3 TERMINATOR | 
100312 077672 000000 056626 TABLE4: .WORD PARS,O,MINCYL+DRIVES | 
100320 077662 000000 056624 “WORD: PAR4,O,MAXCYL+DRIVE4 
100326 077712 000000 056632 “WORD PAR7.0,MINTRK+DRIVE4 
100334 077702 000000 056630 WORD * 0, MAXTRK+DRIVE4 
100342 077732 000036 056636 “WORD PAR. 30. ,MINSEC+DRIVE4 
100350 077722 000036 34 "WORD ARS. 30. .MAXSEC+DRIVE4 
100356 “WORD 0 ; TERMINATOR 
100360 077672 000000 061042 TABLES: .WORD PARS,O,MINCYL+DRIVES 
100366 077662 000000 061040 “WORD PAR4.O,MAXCYL*DRIVES 
- 100374 077712 000000 061046 “WORD PAR7,0,MINTRK+DRIVES 
100402 077702 000000 061044 “WORD 5 K+DRIVES 
100410 077732 000036 061052 SWORD PAR. 30. «MINSEC DRIVES 
100416 077722 000036 061050 “WORD PAR8. 30. .MAXSEC+DRIVE5 
100424 | “WORD 0 TERMINATOR 
100426 07767 900000 063256 TABLE6: .WORD PARS,O,.MINCYL+DRIVE6 
100434 077 063254 ;WORD PARG,O.MAXCYL+DRIVEO 
100643 077712 000000 063262 “WORD PAR7..0.MINTRK+DRIVEG 
100450 077702 ©20000 063260 “WORD PAR6.0,MAXTRK+DRIVE6 
100456 077732 000036 063266 “WORD PAR. 30. ,MINSEC+DRIVE6 
100464 077722 000036 264 “WORD PAR, 30. .MAXSEC+DRIVE6 
100472 “WORD 0 3 TERMINATOR 
100474 077672 000000 065472 TABLE7: .WORD PARS,O,MINCYL+DRIVE7 
100908 Orr er 000 547 “WORD 4°0-MAXCYL*DRIVE7 
100510 077712 547 -WORD PAR7.0 ,MINTRK+DRIVE? 
100516 07770 547 “WORD PAR6.0.MAXTRK+DRIVE7 
100524 07773 36 065502 “WORD PAR. 6. MINSECSD IVE? 
100532 07772 36 065500 “WORD PARB. 30. -MAXSEC+DRIVE7 
100540 “WORD 0 3 TERMINATOR 
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1 .SBTTL ROUTINE TO SIZE MEMORY ‘ 
s3 © RARRARAAERAREEREAERREEEREREEEREREAKEERAERRERAEAERERRAEEARERERAEREEEEE , 

S*CALL: 
:* JSR PC,$SIZE ‘ : 
:*$LSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION. ; 
100542 010046 $SIZE: MOV RO,-(SP) 3s SAVE RO ON THE STACK A 
100544 010146 MOV R1.=-(SP) *SAVE R1 ON THE STACK f 
100546 013746 000114 MOV a#i14,-(SP) + SSAVE REMORY ERROR VECTOR PS & PC ‘ 
100552 013746 000116 MOV a4116,-(SP) / 
100556 012737 000116 00(114 MOV #116,04114 sz IGNORE PARITY ERRORS WHILE SIZING f 
100564 012737 000002 000116 MOV #RTI,a#116 / 
10057- 013746 000004 MOV a#ERRVEC,- (SP) FSAVE PRESENT ERROR VECTOR PS & PC f 
100576 013746 000006 MoV Q#ERRVEC+2,-( f 
100602 010600 SP,RO *SAVE THE STACK POINTER / 
z3SET THE E ERRVEC pg TO THE ese PS f 
100604 104400 H OLD PSW AND PC ON STACK / 
100606 012657 nov (SP)+, a#ERRVEC+ 2° sSAVE THE PSW IN a#ERRVEC+2 f 
100612 012737 100632 000004 MOV W2$,QWERRVEC =: SET FOR’ TIMEOUT / 
100620 012701 020 MOV #20000, 33FIRST ADDRESS ‘ 
100624 005711 1$: TST (R1) TEST THIS ADDRESS } 
100626 005721 TST (R1)+ * STEP TO NEXT ADDRESS : 
100630 000775 BR 1$ =: TRY ANOTHER ’ 
100632 162701 000002 2s: SUB #2.R1 3 DROP BACK f 
100636 010006 MOV RO, SP RESTORE THE STACK ! 
100640 012637 000006 MOV (SP)+,@#ERRVIC+2-  ;RESTORE ERROR VECTOR 
100644. 012637 000004 MOV (SP) +, a#ERRVEC 
100650 012637 000116 MOV (SP)+,a4116 zzRESTORE MEMORY ERROR VECTOR | 
100654 012637 000114 MOV (SP)+,a#114 
100660 010137 100672 R1,$LSTAD 3LAST ADDRESS 
100664 012601 MOV (SP)+,R1 STORE R1 
100666 012600 MOV (SP)+,RO : TRESTORE RO 
100670 000207 RTS Pp 
100672 000000 SLSTAD: .WORD 0 z:CONTAINS THE LAST ADDRESS ) 
{ 
f 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
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~SBTTL BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS 


{ 
( 
} 
¢ :THIS ROUTINE IS USED TO INSURE THE BUS ADDRESS OF THE RH/RM E 
4 : TUP FOR THE PROPER ADDRESS. IT WILL ALSO READ THE ADDRESS A 
? sFROM THE TTY IF REQUIRED. 
7 NOTE: THIS ROUTINE DESTROYS RO-R4 / 
$ sCALL: i} 
° i 
10 : JSR PC ,BUSADR 
1 : RETURN | 
ig 100674 005737 001336 BUSADR: TST CHGADR s INPUT FROM TTY REQUESTED? j 
14 100700 002053 BGE 3$ :NO=-BRANCH j 
15 100702 005037 001336 CLR CHGADR *YES=-CLEAR THE REQUEST FLAG j 
16 100706 104401 001203 TYPE $CRLF sTYPE A CRLF / 
17 100712 005227 177777 INC #1 ‘FIRST TIME THRU ? j 
18 100716 001402 BEQ 1$ :BR IF YES ; 
19 100720 104401 001203 TYPE — ,S$CRLF 7 CRLF j 
20 1007¢4 005037 001340 1$: CLR CFLAG *CLEAR CONTROL C FLAG ‘ 
21 100 012700 001272 MOV #SRMADR RO FIRST ADDRESS f 
22 100734 104401 101046 TYPE »MRMCS1 3 = ‘ 
23 100740 011046 MOV (RO) ,-(SP) sPRESENT RMCS1 ADDRESS 
24 100742 104402 TYPOC sTYPE IT 
25 100744 104401 075233 TYPE ,BLNKS2 :TYPE 2 B | 
26 100750 104411 RDLIN 2GET THE ENTRY 
27 100752 012601 MOV (SP)+,R1 sADDRESS OF ASCII TEXT 
28 100754 005737 001340 . TST CFLAG sWAS IT CONTROL C ? 
29 100760 001361 BNE 3BR IF YES 
30 100762 004537 101064 ~— JSR R5,CK.NUM ‘ENTER AND STORE THE NEW ADDRESS | 
31 100766 000756 BP 1$ 3E | 
32 100770 012700 001274 2$: MOV #SRMVEC RO 3VECTOR ADDRESS 
33 100774 104401 101055 TYPE »MRMVEC 3" RMVEC= 
34 101000 011046 MOV (RO) ,=(SP) “PRESENT RH/RM VECTOR ADDRESS ON THE STACK 
35 101002 104402 TYPOC :TYPE IT | 
36 101004 104401 075233 TYPE ,BLNKS2 3TYPE 2 BLANKS | 
37 101010 104411 RDLIN *READ THE ENTRY 
38 101012 012601 MOV (SP)+,R1 sASCII TEXT ADDRESS 
39 101014 005737 001340 TST CFLAG WAS IT CONTROL C ? | 
40 101020 001341 BNE ae $ | 
41 101022 004537 101064 JSR R5,CK.NUM sENTER AND STORE NEW ADDRESS | 
42 101026 000760 BR ZERROR EXIT | 
43 101030 012700 001272 3$: MOV #SRMADR,RO ‘FIRST ADDRESS OF NEW PARAMETERS | 
44 101034 012701 040310 MOV #RMADR,R ‘FIRST ADDRESS OF WHERE TO PUT THEM | 
45 101040 012021 _ MOV (RO)+, (R1)+ : | 
46 101042 012021 MOV (RO)+,(R1)+ sVECTOR ADDRESS | 
7 101044 000207 RTS PC :RETURN 
49 101046 122 115 103 MRMCS1: .ASCIZ @RMC(S1=a 
50 10105 122 115 126 MRMVEC: .ASCIZ @RMVEC=a 
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13 101066 
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15 101072 
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30 101140 
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41 101166 
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43 101172 
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46 

47 
48 
49 


Soooco -S 30002] | | 6-"Goooo 
SSE Ges Corea rar araeseSeuNeaS 
SIERVSLSRKRALAVKENVAVSUNNANE LGA 


atten 
J 


CZRNAAO RM80 PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 68 
CK.NUM = CHECK NUMBER (OCTAL) 


000006 


000060 
000067 


177770 





SEQ 0216 


-SBTTL CK.NUM = CHECK NUMBER (OCTAL) 
sTHIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
ZAND FORM R2 


; S AN OCTAL NUMBER IN 
; MOV #ADR,RO ZADDRESS TO PLACE NEW NUMBER 
; MOV #ADR.R1 SADDRESS OF ASCIZ STRING 
3 JSR R5,CK.NUM *R5 CHANGED 
3 RET ZERROR EXIT 
; RET *NORMAL EXIT 
CK.NUM: MOV R2.-(8 +7($P) ZSAVE R 
MOV SSAVE R 
MOV RS. ~t85) *SAVE R& 
MOV #6.R3 *MAX OCTAL DIGITS IN THE NUMBER 
CLR 2 ‘FINAL OCT 
1$: MOVB = (R1)+,R4 GET CURRENT SOIN TED BYTE 
BEQ 3 *BRANCH, IF TERMINATOR DETECTED 
c R4,#°0 SMA ORAL LER. THAN THAN ASCII-0 ? 
BLO 5% :YES,E XIT 
C RSM? SLARGER THAN ASCII-7 ? 
BHI 5$ TYES,ERROR EXIT 
ASL R2 SSHIFT LEFT 
BCS 5$ : 
ASL R2 2 ONE 
BCS 5$ 
ASL R2 SOCTAL DIGIT 
BCS 56 TERROR IF CARRY BIT SET 
BIC #177770,R4 : CHOP 9 OFF HIGHER BITS 
ADD R4,R2 NDING CURRENT DIGIT TO NUMBER 
DEC R3 OE CREMENT BYTE COUNT 
BEQ 2$ *BRANCH,1F LAST BYTE 
BR 1$ cL BACK 
2$: MOVB  (R1)+,R4 [CHECK TERMINATOR 
BNE 5$ TERROR EXIT 
3$: TST R2 ‘FINAL VALUE= 
BFQ 4$ YES, TH HEN NOT REPLACE THE pQRIGINAL VALUE 
MOV R2, (RO) SREPLACE THE ORIG 
4$: TST (R554 SADJUST F TURN” 
5$: MOV (SP)+,R4 SRESTORE R 
MOV (SP)+,R3 SRESTORE R3 
“OV (SP)+,R2 SRESTORE R2 
RTS R5 TEXIT 
CYLNDR: .GLKW 258. sONE SECTOR WORD CTR MAX SIZE 


ENDPGM=. 
- END 200 
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CZRNAAO 

SYMBOL TABLE 
ABASE = 176700 
ABNRML 031264 
ACDW2 

ACK = 0001 
ACPUOP= 

ACTDORV 04025 
ACTSTR 040251 
ADDWO = 


AS 
ASGNS 026130 
ASGN4 026300 
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CZRNAAO_RM8O PERF EXER MACRO V04.00 14-JAN~82 15:16:58 PAGE 68-3 
SYMBOL TABLE 


ORDERQ 
OVRWRT 0767 


in $0 


RMLA_ = 00002 
RMMRI = 000024 
RMMR2 = aise 
RMOF = 00003 
= 000004 

RMSN = 9 § 0 
THR 044152 
RMVEC 040312 
RMWC == 000002 
80 041000 
NOP = 000101 
RTC _ = 000117 
RTNCTR 615510 
RTURN 031766 
R6 =2000006 
=%000007 
Or aree 
037736 


CMND 026464 
COPE = 000004 
= 400 


POR PVSOSSL LSS SS 


SPOTCK 070704 SWS = 000040 
SRCHWT rth sue = 000100 
SSE = boy 4 SW = 000200 
SSEI = 001000 SW8 = 000400 
STA 006006 Sw9 = 001000 
STACK = oot 18 SYSTAT 075501 
TART 0035 T 073402 
START1 B02 TAB 075302 
AG 03560 TABLE 100042 
STAR3O 075566 TABLEO er 
STARS 075617 TABLE1 100130 
STATIN 301318 TABLE2 100176 
STATIS 01607 TABLES 100244 
STATPR 9638 6 TABLE4 100312 
STKLMT= 177774 TABLES 100360 
STNDAT 002324 TABLE6 100426 
STO 4244 TABLE? 100474 
$TO1 44274 TAB.XY= 001114 
STO 044462 TAP = 040000 
STO 44532 TBITVE= 000014 
$T05 44556 TD 514 
$T06 044564 THEAD 017514 
$T07 paebes TIMER 040256 
STO8 0446 TKVEC = 0 
$TO9 44662 TPVEC = 000064 
SUMARY 023714 TRAPVE= 34 
SUMHD 075626 E = 040000 
SUPRS 032300 TRFER 012272 
SUPRSL 032264 KLMT 001426 
SUPR1 032312 TRNSWT 040244 
SUPR2 32354 RTVEC= 000014 
SURE 076646 ST’ 003238 
SVRH70 045062 TYPRV 032622 
SWR 001154 TY4DA 032652 
SWREG 000176 st 03 
SWIM 007410 
SwO = 000001 PDS 
Swod0 = 000001 YPE = 
Swo1 = TYPHDA 
Sw02 = TYPOC = 104 
SwosS = TYPON = 1044 
$w04 = TYPOS = 1 203 
swo5 = TYPRI4 032574 
$ = UNS = 
$ = UNSAF 1 
S = UNTASN 07535 
$s = 75 
Swi = 75333 
Swi0 = 
SWi1 = 
swig z = 
SW15 = = 
SWi14 = = 
Swi5 = = 
Sw = = 
Std = 
Sv4 os 





SEQ 0219 
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CZRNAAO_RM80 PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 68-4 ; SEQ 0220 
SYMBOL TABLE 
wCE = 940000 | SDBLK 54 LKS 01304 SPWRUP 03761 SSUPR2 032454 
= $082 b 338 SLLVEC O13 $ SQUES a 09 SSVPC = 4 
WCFER 012434 $DB20 037416 L 71 $SRAND 7 $8 $SWR = 1 308 
= SDECVL 837306 LPAD 011 ; SRDCHR 034170 SSWREG 12 
151 SDEVCT 1216 SLPERR 00112 SRDLIN 034260 $TATUS= 1 
WCKER 010546 SDEVM og 64 SLPVEC Baay SRDOFL= pees STERM = 3 
HD = 000153 $DIV_ 032040 SLSTAD 10067 $RDSZ $9 17 STESTN gist 
° 043246 SDOAGN Oa) 196 $MADR1 oot 4 SREAD 0066 STIME 024764 
= 004000 SDRVSN= a513 SMADR2 001244 $REG yet? $T 
EE 012140 SDSPLY 032716 SMADR Ont 50 SRESRE 037164 STKCNT 033310 
WRDCNT 001462 SDTBL_ 036536 SMADR4 001254 SRETRY 015744 STKINT 033326 
= 004000 SENDAD 031752 SMAIL Bot 96 SRHEXT= 000001 STKQEN= 033325 
WRTICHK 001502 SENDAT= 000036 SMAMS1 001 8 R 001272 $TKQIN 033312 
WRTDAT= 000161 SENDCT 031736 SMAMS2 00124 SRMAS = 002156 $TKQOU 033314 
= 000163 SENDSK= 000042 SMAMS oot 46 SRMBA_= 002144 $TKQSR 033316 
017 SENV oo 1ss6 SMAMS4 1638 SRMBAE= 002210 STKS Og116? 
WRT.AD 045032 SENVM § 001227 SMBADR aa SRMCS1= 005160 STKSRV 033376 
° 044750 $EOP 031312 SMFLG 057020 SRMCS2= 138 STMPO 001174 
WRT.R1 045026 SEOPCT 031730 $MISPO= 300 10s SRMCSS= 00221 SIN = 005 
WRT.R3 045052 SERFLG poate SMNEW 03456 SRMDA = 00 198 STNPWR 03733. 
° 045056 SERMAX 001131 SMS bn18s¢ SRMDB = 00216 STOTAL= 000072 
eRS 045060 SERROR 034640 SMSGLG b1She SRMDC = 002174 TPB 1 
WRT .WD 5030 SERRPC 001132 SMSGTY 9 06 SRMDS = 002152 STPFLG 001173 
XXDP 1444 SERRTB 003370 SMSWR 4386 SRMDT = 002166 TPS 1164 
076137 SERRTY 035230 SMTYP1 00123 SRMECI= 002204 TRAP_ 040060 
ZEROS 002370 SERTTL 001126 SMTYP2 001243 SRMEC2= 88 206 $TRAP2 040102 
ZROIND 001354 SETABL 001226 SMTYPS 001247 SRMERI= 002154 $TRK = 000011 
THD 001100 SETEND 001272 SMTYP4 001253 SRMER2= 002202 $TRP = 000015 
SATYC 2 SFAIR = SNCODE= 80016 SRMHR = 002176 STRPAD 040114 
SATY1 036556 SFATAL 001210 SNCYL = 000120 SRMLA = a8 160 STSTM 001104 
SATYS 056564 FFLG O30 t55 SNEXT B00 156 SRMMRI= 002164 TSTNM 001116 
SATY4 036574 SFILLC 0011 SNPATC= 00011 SRMMR2= 00 “9 STTYIN 034514 
SAUTOB 001150 SFILLS 001171 SNSEC = pois SRMOF = 0021 STYPDS 36386 
$BASE 001262 SFIRST= 000124 SNTRK = 00011 SRMSN = 00217 YPE 035550 
$8D 001136 SFMT = es eed SNULL_ 001170 SRMVEC 001274 STYPEC ba27 85 
S$BDDAT 001142 S$GDADR 0011 SNWTST= 000000 SRMWC iar STYPEX 36106 
SBDSEC= 000146 SGDDAT oo t78 SOCNT 0363 $RM80 352 STYPOC 0361 
$BELL 001176 SGET42 03174 SOCTVL 0375 SRTNAD O34) 764 TYPON g30lne 
$BUF_ = 000006 SGTSWR 033716 SOMODE 0363 SSAVRE 8 7126 STYPOS 036104 
$CDW1 001266 = 000076 SOPERC= 000046 SSAVR6 037714 IT id 220 
1270 SHD __= 000000 SPACK = Ooce ye 0 $538 SUNITM 001110 
SCHARC 056100 SHIBTS oot SPASS 1214 0 6 1232 
SCKSWR 053626 SHI 71 SPASSC= 000104 SEC = 000010 $VECTI 1256 
SCMTAG 001114 SHLDWC= 11 SPASTM 001106 SSETUP= 128 SVECT2 1260 
= SHSNL = 4 SPATTC= 0000. ZE 10054 SWCNT = 
m4 SHSNA = 144 SPOSIT= 900 SKI_ = 109 SWRDL = 0 
SCNTLC 0345353 SICNT He8 SPOWER 0. SSOFT = ; 4 ITN= 0 
SCNTLG 034545 SILLUP 03771 SPREVA= 000 SSEC = ¢ SWTOFL= g 
SCNTLU 034540 SINTAG 1151 SPREVO= 00 SSSENB= 1 SXOFF = 
SCODE = 24 SITEMB 1130 SPSEL = 3 SSTUP = 17777 XON = 1 
SCOMND= SLF 1204 $PWRAD & SUPRL 364 SSGET4= 
SCPUOP 001254 SLFLG 4 4 SPWRDN 037536 SSUPRS 298 SOFILL 
SCRLF 001203 $LKCSB 1 9 SPWRMG 037700 SSUPR1 41 -$X == 0011 
$CYL = 000012 SLKCSR 001276 





CZRNAAO_RM80 PERF EXER MACRO V04.00 14-JAN-82 15:16:58 PAGE 68-5 
SYMBOL TABLE 


ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 62720 WORDS ( 245 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
»A:CZRNAA/C=A:CZRNAA. DOC, CZRNAA,SYSMAC/M 


SEQ 0221 


CROSS REFERENCE TABLe (CREF V 


SSGET4 35-1 35-14 
SOFILL 44-1 44-18 = 44~18 44-1% 


| D 
CZRNAAO RM8O PERF EXER MACRO 04,00 14-JAN-B2 15:16:58 PAGE S=1 SEQ 0222 


SATYC 46-1 46-14 

SAUTOB 6-04 9-30* 9-76 9-168 9-184 9-235 10-12 11-82 23-71 29-60 8629-82 52-111 35-1 35-1 
40-1 40-1 0-1 

SBASE 6-04 9-71 9-73 

SBDADR 6-04 

SBDDAT _6-0# 

SBDSEC 21-22 31-36 «= «332-18 = 32-95 59-694 59-73 

SBELL 6-0# 22-10 40-1 0-1 40-1 41-1 41-1 41-1 

SBUF 11-98% 11-134* 12-738 13-10 14-10 14-96 14-102 14-107 14-111 14-153 22-102) 22-252 «= 22-259 = 53-206 

scen 56-96 56-111 59-94 . 


43-14 043-183-184 3-18 


SCMTAG -O# 
SCNTLC 40-1 40-1 40-1 40-1 40-14 


40-1 
13-5 13-31 13-92 13-260 13-356 13-362 14-14 14-16 14-24 14-151 15-42% 15-64% 15-69%  20-25* 


20-33% 20-39 29-35% 29-45 56-146* ato 

SCOMND 13-400" 13-4148 13-434* 13-471" 15-65" 15-708 20-27 20-28 20-32% 29-15 = 29-37# = 31-43% = 535-203 = 56-68 
56-125 56-135 56-147" 59-64 

SCPUOP 6-04 9-115* a 336" 22-89 = 22-271 = 58-91 

SCRLF mer 9-50 9-27 9-319 11-39 11-61 12-96 12-697 12-706 1g-796 12-706 12-706 13-164 13-187 
13-199 13-325 13-334 = 13-360 3=.: 13-373 «13-387 §=— 13-389 = 13- 4 2-13 14 23-16 35-44 22- 2-70 
22-72 $5-1% 22-119 922-138 3=— 22-158 antes 22-192 22-22 sa 2-262 22-295 -309 §f-3 2 22-329 
2e- 2-41 22-442 ra 24-72 4-150 27-17 7-161 ~165 1-9 2-119 += 32-126 a 4 4-26 
35-1 5-1 1 6 40-1 40-1 41-1 41-1 41-1 41-1 41-1 42-1 42-1 42-1 
42-1 3-1 - - 67-16 67-19 


‘4 43-1 43-1 
SCYL 13-16 «= 13-424" Fa - 14-181 15-26 15-28% 15-41% 20-15 20-37% 22-165 29-15  29-125* 31-39% 53-209 
$DB2D $5-302 4-215 22-4 24-98 24-109 24-117 39-85 39-228 


$DB20 39-245 0-1 
SDBLK 45-1 45-1 45-14 
SDECVL 49-1 49-14 
SDEVCT 6-04 35-18 35-1* 
SDEVM OF 
$DIV. = 13-255 = 13-349 §9= 22-291) 36-11 36-394 
SDOAGN 35-1 35-1 5-14 
SDRVSN 24 $3- 7 O-25* 39-62 59-734 59-77 
Y 39-964 ¢ 
SDTBL 45-1 45-14 
5-5 35-14 


SENDAD 5~ 
SENDAT Le-a6* 14-27* 35-1 35-1 35-1 59-254 
14-183* 14-184* 35-1 35-1 59-264 


















CZRNAAO RM80 PERF EXER MACRO a 0 14-JAN-82 15:16:58 PAGE S-2 SEQ 0223 
CROSS REFERENCE TABLE (CREF V04.00 ) 


SENV 6-04 2-30 9-66 19-6 41-1 43-1 46-1 46-1 
9-2 43-1 43-1 46-1 

SEOP 11-176 396 35-14 

SE 35 

SERFLG . 6-0# 41-1 41-1 4i-1* 

SERMAX 


SERROR 
pea 6-04 ¢32} 41-1 41-1 41-1* 41-1% 42-1 42-1 


RTB 8 -1 
SERRTY 41-1 42-14 
SERTTL 6-04 41-1 41-1 41-1* 
SCAP 56-158 56-196 56-198 58-196 
SET. 6-04 


5-8 6-04 
AIR 11-101® 117-138* 11-146* 11-147 59-394 
6-0# 84 j 


SFF 46-1 46-14 46-1* 46-1* 46-1* 
SFILLC 6-04 43-1 43-1 43-1 


43-1 43-1 
SFIRST 9-103* 9-103" 9-103% 9-103" 9-103% 9-103 9-103* 9-103" 10-34% 29-24 29-69% 59-514 
ta, 53-202 59-5# 59-6 59-7 59-8 59-9 59-10 = §9=11 59-12 59-13 59-14 59-18 


SGTSWR 40-14 e-1 2-1 
24-135 924-147) = 25-17 25-17% 59-354 
4-57 4-57 4-57 i 


5-84 
SHINUM (9-25* 36-9 47-1 47-1 47-14 47-18 
— 14-94 14-103 914-108 ba HF 15-28" 20-43% 59-408 


9-84 59-6 59-69 
9-155* —9-155* 9-155* 9-155% 9-155" 9-155e 9-155" 99-1558 31-72 31-75" 31-104" 39-79 59-654 


SICNT 6-0# 
ILL 51-1 51-1 51-14 
SINTAG 6-04 40-1 40-1 40-1 40-1 40-1* 
6-08 41-1 41-1 41-1 41-1 41-1 41-1* 41-1* 42-1 
F 6-04 40-1 -40-1 40-1 41-1 41-1 43-1 43-1 
SLFLG 46-14 6-1* 
$LKCSB 7-O0# 23-53* 
$LKCSR 7-08 3-47 = 23-54% 
~~ 3-60 23-65% 


47-1% 


CZRNAAO RM80 PERF EXER MACRO 
CROSS REFERENCE TABLE (CREF V 


14-186 - 


35719 


46-1* 


29-38* 
24-116 


14-181 
59-244 
20-12* 


25-19% 


46-1* 





ee 15:16:58 PAGE S-3 


59-374 


41-1 


Wwnw 
: we 
hm 
N“N 


22-210 22-214 


13-509 
$113 59-113 59-115 
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CZRNAAO_RM8O PERF EXER MACRO V04 y 14-JAN-82 15:16:58 PAGE S-4 SEQ 0225 

CROSS REFERENCE TABLE (CREF V04.00 ) 

~—_— 5 9-85 9-118 9-132 62-5 67-21 67-43 

SRMBA } 13-281 13-303 «13-341 «= 13-380) = 14-9 22-103 922-153 922-258 39. 22=269* 922-275" 22-278* 22-279 
59-984 

SRMCS1 12-6 12-715 13-413 15-24 oon} ¢ -40 a6-185 59-774 59-78 59°79 59-80 59-81 59-82 

> 59-85 oo-09 59-87 9-88 “89 59-90 59-91 59-92 59-93 59-94 59-95 59-96 

59~ 59-11 59-1 3 9-113 59-113 «59-113. 59-113) 59-113 59-113 = 62-6 

SRMC 1 12-61 tent 9-814 62-6 

SRMCSS 2 29-27 = 59" 59-113 59-113 59-113 = 59-113 59-113 «= 559-113 559-113 = 59-113 = 62-10 

SRMDA 5 “Sf, ig- 45-386 22-241 23-19 23-20 59-804 62-7 

SRMDC 13-438 15 1$-<6 $6130 22-229 23-21 59-914 62-8 

SRMDS 12-10 3 1 12-174 59-824 62-6 

SRMDT 59-884 62-7 

SRMEC1 137505 16-508 12-210 13-266 22-316 59-954 62-6 

SRMEC2 12-21 13-285 22-320 59-968  62- 

SRMER1 12-128 igre 12-144 12-148 12-15 12-15 13-198 12-164 13-168 12-172 12-178 12-182 12-200 12-242 
12-261 12-263 12-3 12-341 12-35 12-35 12-410 12-449 12-719 13-502 13-505 59-834 62-6 

SRMER2 12-186 a 12-669 12-680 12-721 59-944 62-6 

SRMHR 59-924 -8 

SRMLA 59-854 62-7? 5 


se 
15-30 16-28 eo-165 59-904 62-8 


SRMVEC 7-08 9-70* 9-86 67-32 
SRMUC 12-734 «= 135-12 13-248 13-343 22-100 22-156 22-287 59-784 62-7 


SRTNAD 35-14 

SSAVR6 51-1 51-14 8 8=651-1* S1-1* 51-1* 

SSAVRE 48-14 - 52-1 

$SB2D 13-277 Q “st, 24-82 3=— 26-14 26-19 26-24 32-101 32-107 32-115 39-2264 
$SB20 22-462 39-24 


SSEC 15-18 15-425" 15-468" 15-19 15-25 15-27" 15-32# 15-36 15-39" 15-50. 16-30% 20-16 20-36" 22-175 
29-127 31-412 31-52s 31-53. 31-66. 31-82. -31-B4e 53-207, 56-778 56-145, 59-108 
setup “4-267 4-267 4°267 367367. 367H 4-267" 4-267 4-267" 4-267" 4-267# «9-25 49-25 9-25 
9- 9- 9- 9- ot fe. fe. Fe FF 35-1 35-1 


SOF 
aeete 13-24 13- 13-30. 13-254 13-348 15-60% 20-38% 20-41% 22-290 29-43% 29-47% 59-194 
$STUP) 4-267) 4-267) 4-267 = 4267 = 4267 = 4 267# = 42678 = 42678 4=267# 44-2674 = 4-267# 94-267 = 42678 = 44-2678 


4-267# 

SSUPR1 19 3e- 4a 

SSUPR2 38-18* “23% 38-33 38-335 8-374 

SSUPRL 1 8 22-406 22-414 22-4355 22-479 38-164 

SSUPRS 38-214 

Sour’ 4-478 7-34 4-58 4-58 4-58 4-58 4-58 4-58 4-58 4-58 6-0 6-0 6-0 9-19 
9-25 35-1 35-1 5-1 35-1 35-1 41-1 41-1 41-1 41-1 41-1 41-1 41-1 41-1 
41-1 41-1 41-1 1-1 

SSWREG 9-25 

STATUS 


11-167 12-4 12-24 12-39 = 12-41 12-43 = 12-124 «=: 12-252, 12-255) = 12-345: 13-418 = 13-438 )§=— 13-476 = 13-49 
13-498 14-7 25- 7 22-249 25. 31-49 $3 4e-878 56-142* 59-144 63-8 ay —— 





H 
CZRNAAO RM8O PERF EXER MACRO vos ON 14<JAN-82 15:16:58 PAGE S-5 SEQ 0226 
CROSS REFERENCE TABLE (CREF V04.00 


4 
35 
7 40-1 rt ae 40-1 40-1 40-1 40-1 40-1 43-1 43-1 
35-5 40-1 40-1 40-14 51-16 

Sreens 40-1 40-1 40-18 40-1% 40-1 40-1* 40-1*  40-7* 40-8* 40-9 40-11* 


STKQSR 40-1 40-1 40- 40-14 40-11 
$TKS &" 27-85* 40-1 40-1 40-1 40-1 40-1 40-1* 40-18 40-1* 40-1* 40-1* 40-1 43-1 
STKSRV 40-1 40-14 
THPO 83—._-« 6 = 0# 
STN 4-484 4-57 9-19 9-19 9-19 9-194 
STNPWR 49-1 9-1 49-18 
STOTAL 22-397 24-144 25-20 25-20* 34-38 59-334 
TPB 6-04 -1 43-1 43-1* 
STPFLG 6-04 43-1 43-1 43-1 
TPS 6-04 =1 43-1 435-1 
STRAP 9-25 52-14 
STRAP2 - 14 


52-1 
STRK 13-467* 15-40" 22-170 29-126% 31-40* 53-208 59-114 
52-1 1 1 as | 52-1 52-1 5 


STRP = = 5e- - 2-1 52-1 52-1 52-1 52-1 52-1 52-1 52-1 
52-1 52-1 52-1 52-1 52-1 52-1 52-1 52-1 52-1 52-1 52-1 52-1 52-1 2-1 
52-1 52-1 52-1 52-1 52-1 52-1 52-1 52-1 52-1 52-1 52-1 52-1 35-) 2-1 

“14 S2-14 52-14 52-14 52-14 = 52-14 52-14 = 5S2-1# 52-14 52-14 S2-1# = S2= 1# 

52-2 52-2 52-2 52-2 S2- 

STRPAD 1, 52-14 52-3 

STSTNM 866-04 8 41-1 41-1 41-1 

STTYIN 40-1 40-1 40-1 40-1 40-1 40-14 

STYPBN 52-1 

STYPDS 45-14 52-1 -1 


STYPE 9=4 747! 
STYPEC 40-1 43-1 43-1 43-1 43-14 


YPON 46-1. 44-18 52-1 

STYPOS Gé-14 52-1 

suitn | Soke 
6-08 

i oe 

SUCNT” 182472* 15-S7* 15-598 20-42" 20-44% 29-41% 29242" 31-42% 53-205 56-82 56-93" 56-105 56-108 59-88 

SUROL 12-756 1S] 13-249 15-342 14-51 eth faneOr 14261 14-62 ah P| os | et A 
a Cw es ee ee ee eS 
39. 23-3 25-88 89-99 9-40 39-41 

SURITN 16-18e 14-198 14-218 22-403 24-9 9-308 

SWTOFL 14-22% 22-400 24-93 298 

SXOFF 43-1 -1 

—. 2. 2) = 

*$X a a orbs 





CZRNAAO RM8O PERF EXER MACRO Vos 00 14-JAN-82 15:16:58 PAGE S=6 SEQ 0227 
CROSS REFERENCE TABLE (CREF V04.00 ) 


Al 4-844 = 9-136 9-140 
Al 4-854 9-156 es 


ACK 4-252# 
ACPUOP 


C -0 
ACTDRV 53-1184 58-138 55-57* 56-3* 56-11% 57-6 
oo 53-1244 57-8 57-23% 


-0 
1 6-0 
ADDWI0 §=6-0 
ADDWi1 6-0 
ADDWi2 6-0 
ADDW! 6-0 
ADDW14 6-0 
ADDWIiS 6-0 
a“ 6-0 
ADDW. 6-0 
DW4 = 6-0 
ADDWS 86-6 -0 
W6 6-0 
ADDW7 = 6-0 
6-0 
6-0 

ADEVCT 6-0 6-0 

ADEVM 6-0 6-0 

NV 6-0 6-0 

6-0 6-0 

AFAT. -0 6- 


AMAMSS 6-0 6-0 

6-0 6-0 

S 6-0 6-0 

GLG 6-0 6-0 
AMSGTY 6-0 6 


-1# 
APTENV 41-1 4 a * 46-1 46-14 
43-1 46-1 46-14 


APTSPO 
ASGN1 
ASGN2 


27-1134 
7-111 «9-27-1264 








J 
CZRNAAO RM8O PERF EXER MACRO V04. 0, 14-JAN@82 15:16:58 PAGE S-7 SEQ 0228 
CROSS REFERENCE TABLE (CREF V04.00 ) 


ASGNS 927-12 at 27-1444 
moet ont33 7-1728 
ASGN6 sini? 7-174 
ASGN? P2433 27-1778 
ASGND 1 64-314 
ea | * iad 65-174 
ASNERR 27°124 27-141 27-175) = 27-185 8-22 28-3 34-78 
ASNLST (7 1-71* 11-80 11-190 3 4-2 7-26 27-120 927-134 «27-144 28-10) 28-12% =28-28 =. 2B = 348 
28-4 ee 34-22% 35-1 5- 5-1* 1-19 
ASNMSG 27-113* 27-118* so-ug”* 27-132% 27-174 27-180% 27-182* 27-184% 28-21% 28-37%  34-12# 
ASSIGN 27-914 28-50 8-5 28-60 28- 
ASWREG 6-0 
ATO 4-1694 
ATI 4-1708 
At2 4-1714 
ATS 4-1724 
ATS 4-17 
ATS 4-1748 
AT6 4-1754 


T 
ATABIT 11-71 24-27 gi-1e0 27-134 27-144 4928-10. 39 28-12, 28-13. 28-32 8-34 $5736 34-23 35-1 35-1 
4-99 55-96 55-100 55-167 56-224 56-238 56-246 56-268 57-78 


WR 6-0 6-0 
AUTLST 11-72% 28-13% 34-23 35-1 35-1 35-1* 35-1* 35-94 
AVAIL. 7-0# 11-22 11-65 11-69% 11-119 11-122 11-157 11-178 


BADBLK 
BADENT 9-205 9-224 (9-250 27-107 32-77 33-26 64-434 
os 7-04 at toad 21-52e 22-68 25-16 25-17 25-18 25-19 25-20 


( 
$ 
$ 
$ 
$ 
$ 
$ 
« 
. 
: 
$ 
$ 
$ 
} 
$ 
} 
‘ 
‘ 
‘ 
« 
. 
‘ 
: 
‘ 
« 
‘ 
! 
‘ 
‘ 
: 
‘ 
‘ 
‘ 
' 
' 


THO 9-382 9-2 
I 4-1028 
BEGCOD 7-08 29-35 29-36 
BEGPAT 7-0# 39-38 
7-08 39-40 29-41 
BITO. 4-76" 
BIT00 4-76 4-76" 41-1 1-1 
BITO1 4-76 4-768 12-41 55-49 55-251 
BIT02 4-76 46-768 
BIT0$. 6-76 = 76H 12-563 
4-76 4768 13-124 12-144 56-221 
BITOS 4-76 4-768 12-652 56-219 57-54 
4-76 4a76H 12-041 10-242 12-341 12-387 44-7? 2-249 27-85 St-16 55-40, 5-111 56-53 SEHI16 
BIT0? 4-76 6-764 12-26 12-148 14- 54-106 55-221 56-23 56-219 56-221 56-242 58-77 
BI 4-76 4-76 12-140 34-106 37-66 
BITO9 4-76 G=768 12-39 Git 55-145 57-52 
SITIO Aten anette lxhy 55-72. 55-88. 56-269 
BITI2 768 Vo 957956 33781, 33252, 33788; 387589 suze Su-94 5-106 55-51 55-84 SB+19. 58-54 


bea 
58-117 








K 
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CROSS REFERENCE TABLE (CREF V04.00 ) ¢ 
BIT13 4-76 = 9-142): 12-152) 12-515) 12-617 39-9 41-1 56-193 $ 
BIT14 ot Re = i t wt Fi 13-2] 12-128 12-132 12-136 13-186 12-332 12-669 12-671 12-680 55-46 55-81 : 
BIT15 ra len8 12-188 1on¢3! ten21" 12-355 167617 55-46 55-49 55-51 55-81 55-84 55-251 56-53 s 
56-219 7$- ¢ 56-285 57-52 57-66 57-103 57-110 $ 
BIT 4-768 =4 57-110 s 
BIT 4-768 1 ~128 S 
BIT4 4-768 12-43 $ 
BITS 4-768 1 ~360 S 
BIT6 4-768 12-26 St 55-74 s 
BIT? 4-768 12-255 12-479 §= 13-498 39 56-45 s 
BITs 4-768 1 =398 16-310 12-416 12-449 12-454 12-617 56-45 $ 
BITS 4-764 12-17 12-61 $ 
BL 7-04 90 10-27 4-25 gras 27-169 28-15 51-29 s 
BLNKS1 13-370 13-382 22-19 2-74 4-75 24-77 24-86 4-88 = 63-654 s 
S2 302 12-706 12-706 12-70 12-706 13-181 13-184 13-321 13-321 13-321 13-330 13-330 13-330 13-3579 : 
22-77, 22-116 «22-167 «= 22-172 «= 22-188 )3=— 22-307 = 22-307 39 22-318 3963-644 = 67-25 6736 S 
BLNKS3 13-367 635 S 
BLNKS4 9-275 63-624 s 
BPTVEC ~764 s 
BSE 4-232# s 
BUFTBL 7-04 9-158 9-159% 9-160* 9-163% 9-164% 9-166% 9-167 9-170* 9-171 9-173 14-48 14-50 14-64% s 
14-91 14-92 14-104% 14-109% 14-114 14-115 14-128* : 
BUSADR 9-78 67-134 : 
CFLAG _7-0# 9-100" 9-191* 9-195 9-214 _9-234% 9-240 10-47" 11-3 11-84% 27-16% 27-24 27-92* 27-97 
32-15* 32-36 32-121 32-127* 33-9« 33-21 33-31% 40-5* 51-18" 51-22 67-20% 67-28 67-39 : 
HGADR 7-0# 9-15* 9-18 10-14 10-44% 29-62 29-84 51-26% 67-13 67-15* 
WC 8 15-52 12-36 19-164 : 
cli 55-101 5-1314 
55-103 55-1544 
C14 55-92 55-1724 1 
cI5 55-150 55-168 55-2344 
c18 55-36 55-110 55-147 55-143 55-144 55-146 55-148 55-157 55-164 55-166 55-178 55-183 55-187 55-189 
55-194 55-198 55-200 55-210 55-219 55-230 55-2424 56-25 56-44 56-47 56-50 56-74 56-76 56-78 
56-99 56-117 56-119 56-121 56-123 56-126 56-15 56-232 57-95 58-89 
CK.CHR 39-1524 39-189 39-197 
CK.DEC 39-130# 39-158 
D 25-23 25-99 32-67 33-23 39-1834 
67-30. 67-41. 68-124 
CK.OCT 39-1124 39-160 
12-16 ah 
9-262 235-434 35-6 51-17 
CKCLK1 23-46 23-578 
CKCLK $325 23-684 
CKCLK “55 23-66 23-764 
12-15 12-7154 
CKFMT 12-146 12-4104 
12-4494 
- 15-37 16-43 17-37 18-154 
41-1 41-1 52-14 
CLKFLG (7 23-43* § “48% 23-61% 26-4 
0 23-51 3-63 6-314 
CLR 4-1048 27-15 
CLRDPB 10-29 7-154 ¢2-108 
CLRQUE 54-17 7-75 ~1304 
CMCNT 7-04 13-11% 135-12* = 13-24 13-26 13-27" 13-30* 13-94 13-97" 13-102 13-127* 
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CMCYL 7-04 13-16% Ht at 13-36 13-112* 13-113 13-119 
CMDAT a 2 13-4 13-544 13-98 13-100 
CMHED 15- 
CMPAR is-13 13-34 
CMPARD 12-301 13-54 
CMPLMT 7=0# 12-710 13-19 
CMPRES 11-44 11-110 | 11-159 «11-182 021-74 = 21-10 
CMPRT 13-49 a 13-78 13-89 13-1364 
CMPRX 13-46 13-96 13-103 13-117) 13-128 =: 113-1314 
CMSEC 7-04 13-18% 13-104* 135-105 13-107* 
CMSTR. 13-218 
CMSTR2 13 0 13-43 13-488 13-123 = 13+126 

TRK 13-108* 13-109 15-111* 
COLON 26-17 26-22 64-414 

24-79 32-106 932-13 64-54 

COMTBL 20-27 37 
CPSAVE 41-1 41-1 1-1 41-1 41-1 41-14 = 41-18 41-1* 42-1 


CR 
CRLF 4-76# 9-6 9-30 9-30 9-44 9-55 9-61 24-68 24-92 = 24-103 24-114 24-130) 24-131 
3-1 1 6 63-49 §= 6 63-53 
63-56 or-27 63-58 63-59 63-60 63-61 64-18 64-20 64-22 64-23 64-23 64-25 64-27 64-29 


64-46 64-48 = 64- 64-50 64-52 64-53 64-54 64-55 64-55 64-56 64-56 64-57 64-58 64-58 
64-59 64-62 -63 64-64 64-64 65-17 
RAP_ 40-1 0-54 
CYLIMT 7-0# 13-115 29-71 29-89 29-90 29-139% 33-166" 32-53 
CYLNDR 12-456 12-457% 12-458 12-461% 12-497 22-236 22-307 22-307 31-45 59-122 68-454 
DASH 24-76 64-64 
DATAO 7-0 7-04 
Al 7-0 7-04 
DATAIO § 7-0 7-04 
DATA11 7-0 7-04 
DATAi2 7-0 7-04 
DATAIS) 7-0 
DATAI4 7-0 7-04 
DATAIS 7-0 7-04 
7-0 7-04 
DAT 7-0 7-04 
7-0 7-04 
DATAS 7-0 7-04 
7-0 7-04 


DDISP -0 9-25 
DDRVS 7-04 11-14 28-15% 34-25 35-1* 
DEAS 28-44 
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64-294 
7-04 e743" 21-27% 23-36% 23-38% 
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DTO3 4-186" 
DT 4-1878 
DTOS 4-1884 
DT06 4-1894 
DTO 4-1 
DTO8 4-1914 
dT] 8-6 oe 
oT1 22-7 62-64 
dT15 22-8 62-74 
DT16 «= 22-86 ~84 
DT17 = hh = 94 62-104 
dT 8-13 8-34 62-24 
DT 8-20 62-34 
DT4 8-27 62-44 
DT6 8-41 62-54 
DTE 4-1598 
DTEER 12-180 1e-3278 
oT sone 53-1544 54-23 55-94 55-149" 55-246 55-254  55-256* 56-6 56-17"  56-65* 
DVA 4-1294 
DvC 4-2264 
ECBADO 7-0# fm ty 13-321 
CBAD1 7-0# 13-310* 13-330 
ECBIT -0# 13-266* 13-267* 13-268  13-269* 13-287* 
ECC a 3.43 13-2474 
ECC1 13-308 13-3164 
ECC2 13-283 13-306 13-3334 
ECCX 13-324 13-351 13-3344 
ECGD 7 
ECGD1 7 
ECH 4-1534 12-200 
I 4-213# 


EC 

ECMSKO 7-04 13-285* 13-289* 13-2 
ECMSK1, 7-04  13-286* 13-290* a 3 

ECSEC 7-04 13-247% 13-259% 13-262* 13-264* 13-28 

ECVRD 7-04 Sm 68* 13-270* 13-271* 13-272 135-273* 13-275 13-280" 13-281 13-293 13-295 


1 
ECWRD1 7-04 ize” 13-302* 13-303 13-307* 13-310 13-312 13-313" 13-314* 13-323 13-330 


FA 8-4 = 
EM10 §=—_- 60-94 
EM11 60-1 
EM! 60-114 
EM1 12- 60-108 
EM14 12-98 60-1 
Ene |B-11, 60-48, 
EM20 38: 12"374 «= 60-154 
EM21 12- 3 4 
E g 12-331 174 
E 12-314 + 
EM24 12-423 60-1 
moe «19-576 0-918 
E ; 12-594 on 
E =1 4 
234 


57-49 


13-296* 
13-330 


SEQ 0232 
57-63 = 57-73 
13-297* 13-301 
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EM31 


7-0" 
9-188 


4a 
e: Y 
60-278 
60-284 
60-294 
60-304 
60- 


14-10 
29-133 
$228" 


60-344 


56-223 
9-25% 

10-5« 

65-9 


68-474 
35-1 


35-1 
13-48* 


efi 


9-25 
66-1 


14-128 


18-49 
29-139 


otS0e. 


56-231 


10-9* 


56-287 


10-10 


35-1 
13-77% 


9-27% 
66-1* 


14-26 
29-76 
29-116 


57-111 


35-1 


35-14 
13-194 


9-28 
66-1* 


14-28 
29-118 
29-137 
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58-1484 


35-1 


13-197 


9-116 = 9-1 17% 
66-1*  66-1* 


14-354 
29-120 929-121 


9-143% 


23-45 


23-46% 


23-59* 


23-76* 


SEQ 0233 


41-1 








SEQ 0234 
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27-11 


43-1 


43-1 
13-19% 13-208 


2-2004 
2-2254 


22-364 22-3798 


22-451 63-444 
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15-56 
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12-238 
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64-55 





3 -208 
=409 
313 


12-611 


BR 


12-403 


22-227 
12-422 
18-650 
12-495 
13-159 


12-578 


22-230 
13-788 
25-358 


12-596 


SEQ 0235 


22-238 


12-493 
12-741 


12-539 
22-452 


12-614 


SEQ 0236 
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CROSS REFERENCE T abe (CREF V04.00 ) 


MANTER 27-1 -1 
MASK a i = 12-261 12-315" 12-386% 12-435% 12-4792 12-515" 12-563* 12-620" 12-652 12-671* 13-500 13-505 


MATCH 15 5 
MAXCYL 17-3 19-28 29-71% 29-98 9-101 29-121 29-123" 59-554 59-56 59°57 59-58 59°59 59-60 
mown i 65-54 65°54 65-54 3-50 65-54 3-34 65-54 
MAXSEC cn i. ; 19-19 19-34 29-73 29-110 29-113% 59-59H 65-54 65-54 65-54 65°54 65-54 65-54 
MAXTRK ere 1o-3 19-23 19-30 29-72 29-104 29-107* 59-57# 65-546 65°54 65°54 65°54 65°54 65-54 
MCPE 4-878 

PE 4-1074 
MERR1 


MESSAG 

MINCYL 15-41 16-4 17-4 17= 17-9 18-16 18-18 29-76% 29-78% 29-97 29-102* 29-118 29-120 29-125 
59-568 65-54 65-54 65°54 65-54 65-54 65-54 65-54 65-54 

MINSEC 15-39 16-45 17-26 17-28 17-31 18-22 Hh a | 0 18-34 19-17 = 29-80* = 29-109) 29-114 29-127 
59-60# 65°54 65°54 65°54 65-34 65-54 65-54 65°54 65-54 

MINTRK 15-40 16-46 17-15 17-17 if 0 18-19 18-21 18-35 19-21 29-79% 29-103 29-108* 29-126 59-584 
65-54 65-54 65-54 5-54 65-54 $7-33 65-54 65°54 | 

MINUTE 7-04 9-96* 11-87% 26-18 26-39% 6-40 26-42* 

MNTBL -0f_ 22-60 
4-1934 
4-14 


MSGON -28 5-1 64-264 
7-94 " 
MSWAIT 51-21 64 
a mt 64- 
53-1734 55-159 
64-334 
D 64-1114 
NEDCLK 70. 64-324 
‘] 4-110# 
WASN 27-42 aki 
NEWUNT 1450 be 35 11-53 11-69 11-70"  27-169* 
NOENTY “125 64-574 
NOMTCH 1 13-57 
1 + 64-424 
NOTAVL 64-154 
NOTPRS 9- 7-1 64-144 
TRA == 7-1 64-134 
NOTSAF 3 7-174 «64-164 
OFFDIR 4-21 
4-538 


OF FON 
OFFSET 7-0 12-247 12-268 12-285 13-442 22-332 22-366 


CZRNAAO_RM8O PERF EXER MACRO 
CROSS REFERENCE TABLE (CREF V 


OFLIN 
Ss 


lense 


12-96" 
9-94« 


12-5074 


11-85* 


3-38 
11-5 
15-76 


42-18 


55-220 


26-318 
56-247 


11-104 
27-170 


17-80 


24+105 


56-241 


26-33* 


56-290 


11-115 
28-49 


24-111 


58-1904 


11-140 
28-54% 


24-119 


¥06 380 14-JAN-82 15:16:58 PAGE S-17 
-00 ) 


11-164 
28-598 


24-133 


51-27 

28-65% 

65-54 65-54 
65-54 65-54 
65-54 65-54 
65-54 65-54 
65-54 ~— 65-54 
65-54 65-54 


24-136 3924-139 924142 


24-149 


39-65 


39-87 





SEQ 0238 


64-354 


CZRNAAO RM80 PERF EXER MACRO 
CROSS REFERENCE TABLE (CREF V 


13: si 12-650 


13-3394 


; oo 
5-68 
10-48 
51-1 
58-163 
9-25* 


ihe 


56-208 


62-4 
20-32 


a 5 


13-42 


13-4674 


13-4124 


49-1 


= 13-810 


Sa Waele 15:16:58 PAGE S-18 


39-43 


51-24 
51-1* 
58-191 


sige 


33-19 
16-9 


22-200 


54-54 


18-055 


39-98 


51-18 


56-44 
58-42 


37-86 


55-55 


13-808" 


51-148 


56-47 
58-81 


67-37 


55-115 


\e-336* 13-333 12-353 12-387" 12-436* 





RHEXT 


CZRNAAO_RM8O PERF EXER MACRO 
CROSS REFERENCE TABLE (CREF V 


oot" 


28837 


© 
4 


PPA AMMAN 


Chk 
eSEeg 


o 
aeev"e 


300000: 


WM VIII 
TESTES 
Satan 


tt 


rit 
S32 


04 14=JAN-82 15:16:58 PAGE S-19 
x. wt 6 ES 


55-114 
55-154 


55-148 


55-135* 


58-117 


56-254 
62-2 


55-198 


54-14 


56-248 





56-252 56-267* 


J 
CZRNAAO RM8O PERF EXER MACRO Vos 00 16-JAN-82 15:16:58 PAGE $-20 SEQ 0241 
ross REFERENCE TABLE (CREF 04.00 ) 


56-212 56-216 56-226 56-2314 56-260 
28-288 


24-48 24-684 

13-105 919-19 3-28 3-33 9-7 9-93 94 29-144" 29-149" 32-67 
9-972 11-88 3-35 6-34" ya 53-37 32735 

54-19 55-98 


54-78 55-42 55-113 55-261 56-159 58-110# © 


9-236 yess 9-249 9-256 99-2624 
24-45 = 24-5 84 


51-31 


12-6324 
36-654 


1g-369 1en4e0 12-464 12-507 12-529 21-214 
55-96 = §5=100* 55-167" 56-224* 56-238 


15-30 = 16-28 «= 29-145 56~51 56-122 
9-25 9-92 35-3 51-15 


64-218 
28-45 64-228 

9-158 23-75 27-28 

9-11 9=184 

9-214 

9-87" 11-187 11-189" 26-54s 
14-78 
24-74 = 28-42 

13-235 13-239 14-156 

57-378 

57-85 57- . 

57-45 57-47 57-778 

57-89" 

57-59 57-86 57-958 

57-978 

57-1054 

ra 

7-9 7-94 57-96 57-102 57-109 57-1134 
4-4 5-1 

7- 

7-19% 37- 27-31% 37-334 
eho “118 37-178 

“116 37-128 39-86 


=4 
$73 4 56-30 56-55 56-214 56-245 - 7- 7-11 74 
¢ 30-35 367333 mt 6-2 56-286 57-53 S7-112 58-6 


4-764 
4-764 12-17 








CZRNAAO RM8O PERF EXER MACRO Vos 90 14-JAN"82 15:16:58 PAGE S-21 SEQ 0242 

CROSS REFERENCE TABLE (CREF V04.00 ) 

Sw 4-76 4-764 9-186 9-269 11-185 

Sw0 4-76 4-768 

Sw04 4-76 4-768 15-46 34°36 35-1 

Sw0S 4-76 4-768 : $0 2-150 

SW06 4-76 4-768 

Sw07 4-76 4-764 13-174 

Sw08 4-76 4-764 35-1 35-1 

Sw09 4-76 4-764 

Sw 4-768 

$w10 4-764 22-8 

Swit 4-768 

Swi 4-768 

Swi 4-764 22-1129 41-1 

Sw14 4-768 

Sw15 4-764 22-416 22-443 

SW2 4-768 

SW3 4-764 13-66 13-339 

SW 4-768 

Sw5 4-764 22-183 

SwW6 4-768 

SW? 4-768 

Sw8 4-768 

Sw9 4-768 

SWR -0# 9-25 9-25 9-25% 925% 99-25% 9-30 9-105 9-186 9-269 11-185 12-1 13-66 13-174 
13-339 15-46 16-11 20-23 22-8 3-11 22-80 «= -22=150 22-183 22"416 «022-443 27-56 0S 27-68 = 34-36 

-1 35-1 35-1 9-96 40-1 - 40-1* 41-1 41-1 41-1 41-1 41-1 51-1 51-18 

SWREG 5-14 9-25 9- 40-1 40-1 

SWTIM 12-40 12-854 

SYSTAT 9-27 -1B4 

T 22-20 2-212 63-54 

TAB 27-16 “74 

TAB.XY 5-98 

TABLE 29-88 65-394 

TABLEO 65-39 65-544 

TABLE] 65-4 65-544 

TABLE2 65-4 65-544 

TABLES 65-4 544 

TABLES 65-42 65-544 

TABLES 65-42 5-548 

TABLE6 65-4 65-544 

TABLE? 65-4 65-544 

TAP 46-1944 

TBITVE 4-768 

1D 56-8 56-164 

THEAD 1¢- 

TIMER 53-1454 55-108* 55-235* 55-252% 56-19% 56-204" 56-265* 56-272* 57-12 57-148 57-68 57-932 57-99%  57-105* 

TKVEC 4-764 1x 40-1 

TPVEC 4-768 

T 4-764 925% «9-258 

TRE 4-884 

TRELAT : wi 13-103" 18-46 19 19-50 3 9-7 91 9-9 143* 31-40 32-60 

- — - = * 

TRNSWT 53-1044 H “193. 18766, 3°5 7x 56-21 5-334 eats 7-48 7-6 $5403 

TRIVEC 4-764 

TST1 194 

TYDRV 26-87 27-162 39-604 


CZRNAAO RM8O PERF EXER MACRO 
CROSS REFERENCE TABLE (CREF V 


TYHDA 
TYLIST 


3-93 


39-784 


11-93 


34-9 


11-95 


56-147 


34-29 


11-108 


9-255 


33-143 


ie 


Sat tienes 15:16:58 PAGE S-22 


24-141 24-148 + 33-17 
9-61, 9-188 9-19 
9-283 9-286 9-28 

13-64 11-90 1-192 
4-78 24-79, 36-8 
4-114 24-119 24-130 
6-17 26-22 71 
1-92 31-94 31-95 
g-126 33-12 35-18 

“135-1 5-1 

40-1 40-1 401 

40-1 = 40-1 40-1 

2-1 43-1 

67-24 67-35 

27-160 31-96 34-10 

35-1 35-1 64-8 

11-149 
9-257" 15-51  17=45 

S5-146  $5-148  $5-157 

56-123 56-126 56-216 


34-31 


65-3 


55-164 
56-226 


35-1 


55-166 
58-364 


35-1 


55-178 


9-224 
02 


52-14 


55-183 


9-22 
9-51 


4 
67-16 


55-189 





SEQ 0243 


9-232 
9-319 


55-194 


ZRNAAO RM8O PERF EXER MACRO V04.00 14-JAN@82 15:16:58 PAGE S-23 
van ) 


C 
CROSS REFERENCE TABLE (CREF V 


WRICHK 7= 56-132 36-125 g2-18 

WRTDAT 4=259% 7-0 15-70 6-135 

WRTHD = 4= 

WRTPK 10-38 at! 44 15-144 

XXDP on 9-35* 9-38 9-39 9-41* 9-46 
Y 64-344 : 

ZEROS 7-0 7-04 

ZROIND 7-0# 13-21% 13-76% 13-83* 13-87 


9-57 


3 


9-295 


9-297 


10-20 


10-22 


27-114 


SEQ 0244 


27-116 8927-128 


CZRNAAO RM80 PERF EXER MACRO 
CROSS REFERENCE TABLE (CREF V 


52-1 


5 
g-8 6-04 


4-59 
5-16 ~ 
3-99 9-197 

2 


52-1 


25-18 


32-67 


56-198 


V4.0, 14-JAN-82 15:16:58 PAGE M=1 


52-1 


4-61 
25-19 


33-23 


3 =144 
8-313 


52-1 





52-1 52-1 52-1 52-1 52-1 52-1 
$763 4-65 4-70 4-73 4-74 

; ~19 $3735 29-128 30-29 

46-200 398 om 29-10 
-187 -198 7 - 

s5-187 35-19 47 56-50 

52-1 52-1 52-1 52-1 52-1 52-1 


52-14 


31-98 
30-10 
56-74 


52-14 





SEQ 0245 
52-2 
31-107 32-80 
31-33 = 331-37 
56-76 56-78 


52-2 


CZRNAAO_ RM80 PERF EXER MACRO 
CROSS REFERENCE TABLE (CREF V 


TYPTXT 


UPCODE 
WRITE 


XXEP 


24-140 


54-95 
55-219 


04.00 14-JAN-82 15:16:58 PAGE M-2 
yee ) | 


SEQ 0246 


38-4 
49-1 


24-131 


55-189 


